Question

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

Answer 1

CLS
INPUT a, b, c, d
IF a = 0 AND b * c * d <> 0 OR b = 0 AND a * c * d <> 0 OR c = 0 AND a * b * d <> 0 OR d = 0 AND a * b * c <> 0 THEN
   PRINT "Pravda"
ELSE
   PRINT "Nepravda"
END IF

Тестовое решение:
? 4, -7.2, 0, -6
Pravda