Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дано 3 двузначных числа. Вывести на экран те числа, в которых сумма цифр является четным числом.

Ответ оставил Гость

Var a,b,c : integer;
begin
writeln (Введите первое число);
readln (a);
if a mod 2=0 then writeln (Это число является чётным) else writeln (Это число является НЕчётным);
writeln (Введите второе число);
readln (b);
if b mod 2=0 then writeln (Это число является чётным) else writeln (Это число является НЕчётным);
writeln (Введите  третье число);
readln (c);
if c mod 2=0 then writeln (Это число является чётным) else writeln (Это число является НЕчётным);
end.