Составьте программу, которая определяет, является ли сумма цифр введённого целого трёхзначного числа чётным числом.

Question

Информатика

Саломея

15 мая, 03:34

Составьте программу, которая определяет, является ли сумма цифр введённого целого трёхзначного числа чётным числом.

+5

Ответы (1)

Знаете ответ на вопрос?

Кира · Answer 1

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.