): проверьте, является ли произведение четырех произвольных чисел, введенных с клавиатуры, четным число. составьте программу, на пасккале

bryuho20011 bryuho20011    1   21.05.2019 17:50    4

Ответы
робот66 робот66  16.06.2020 14:05

var

a,b,c,d:integer;

p:longint;

begin

write ('A = ' );readln(a);

write ('B = ' );readln(b);

write ('C = ' );readln(c);

write ('D = ' );readln(d);

p:=a*b*c*d;

if odd(p)=false then writeln ('YES') else writeln ('NO');

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика