Составьте программу,которая определяет,является ли сумма цифр введённого целого трёхзначного числа чётным числом.
247
ОТВЕТЫ
Var a:integer;
begin
readln(a);
a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10);
if a mod 2 = 0 then writeln (сумма цифр числа четная)
else
writeln (сумма цифр числа нечетная);
end.
begin
readln(a);
a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10);
if a mod 2 = 0 then writeln (сумма цифр числа четная)
else
writeln (сумма цифр числа нечетная);
end.
25
Отв. дан
Павел
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Українська література
Malaath
На квадратной сетк изображен угол А. Найдите tg А. ...
2018-09-23 00:00:00
Gavinara
Решите уравнение и выполните проверку ! ПОЖАЛУЙСТА! а) ( ...
2018-09-23 00:00:00
Agalas
Турист проехал 8 км что составляет одну четвёртую всего ...
2018-09-23 00:00:00
Buwyn
Решите пж х-34 = 28 даю 30 баллов промто ...
2018-09-23 00:00:00