Ответы
Ответ дал:
0
var a, b, c , d : integer;
begin
read(a);
b := a mod 10;
c := a div 10 mod 10;
d := a div 100;
if (b mod 2 = 1) and (c mod 2 = 1) and (d mod 2 = 1) then
writeln('Нечетны')
else
writeln('Есть четные');
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад