Имеется четыре A,B,C,D произвольных числа. ЭВМ должна ответить на вопрос: Правда ли что …? (вопрос найдете в таблице вариантов). Ответ ЭВМ должна вывести в виде текста – слов ”Правда” или ”Неправда”. все числа больше 0 и меньше 7? — QBasic(Бейсик)

disel 
FOR i = 1 TO 4
    PRINT "vvedite "; i; " chislo= ";
    INPUT "", a
    IF (a <= 0) OR (a >= 7) THEN f = 1
NEXT
IF f = 0 THEN PRINT "pravda" ELSE PRINT "nepravda"

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment