Имеется четыре произвольных числа: A,B,C,D. При вводе их в ЭВМ, она должна ответить на вопрос: Правда ли что СРЕДИ ЭТИХ ЧИСЕЛ НЕТ РАВНЫХ? Ответ ЭВМ должна вывести в виде текста — слов «Правда» или «Неправда». Задача должна быть решена с использованием одного оператора проверки, комплексного логического выражения с использованием логического сложения, умножения отрицания, без переменных-счетчиков и операторов цикла — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
PRINT "npaBga Jlu 4To cpegu etux 4uceJI HeT paBHbIx"
INPUT "vvedite a"; a
INPUT "vvedite b"; b
INPUT "vvedite c"; c
INPUT "vvedite d"; d
IF a = b OR a = c OR a = d OR b = c OR b = d OR c = d THEN PRINT "nepravda" ELSE PRINT "pravda"
END

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

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

Leave a Comment