Question

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

Answer 1

Ответ:

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.