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

disel
1
2
3
4
5
6
CLS : INPUT "a? :", a: INPUT "b? :", b
      INPUT "c? :", c: INPUT "d? :", d
IF a < 1 OR b < 1 OR c < 1 OR d < 1 GOTO No
IF a > 6 OR b > 6 OR c > 6 OR d > 6 GOTO No
PRINT "Da": END
No: PRINT "Net"

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

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

Leave a Comment