Предмет: Информатика, автор: Аноним

решите пожалуйста даю 40 баллов

Приложения:

Ответы

Автор ответа: valgrisa
0

Ответ:

program z;

var a,b,c:integer;

begin

write ('Введите 3 числа: ');

read(a,b,c);

if ((a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0)) or ((a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0)) then

write ('Да')

else write ('Нет')

end.

Похожие вопросы
Предмет: Математика, автор: itzpykram