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

dali666 dali666    3   23.06.2019 17:10    0

Ответы
Tara2017 Tara2017  19.07.2020 13:49
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика