Предмет: Информатика,
автор: БлОнДиНкО7
Дано 3 двузначных числа. Вывести на экран те числа, в которых сумма цифр является четным числом.
Ответы
Автор ответа:
0
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.
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.
Автор ответа:
0
спасибо большое))
Автор ответа:
0
проверила? всё работает?
Похожие вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Математика,
автор: milanakolada26
Предмет: География,
автор: akima200709
Предмет: Обществознание,
автор: irysistova2011
Предмет: Литература,
автор: nastyababenko1