Задание:
Даны три произвольных числа а, и, с. Если два из них являются отрицательными и четными, то вывеси на экран сообщения «да», иначе — сообщение"нет»
Решение:
Паскальvar a,b,c: real; beginif (a<0) and (b<0) and (a mod 2=0) and (b mod 2=0) or (a<0) and (c<0) and (a mod 2=0) and (c mod 2=0) or (b<0) and (c<0) and (b mod 2=0) and (c mod 2=0) then writeln ('yes') else writeln ('no') end. (Проведи компиляцию, я со скобочками мог напортачить)
Знаете другой ответ?