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

Question

Информатика

Эрнестина

5 июля, 22:42

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

+4

Ответы (1)

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

Димитриан · Answer 1

Var a, s:integer;

begin

readln (a) ;

a:=abs (a) ;

s: = (a div 100) + (a div 10 mod 10) + (a mod 10) ;

if s mod 2=0 then writeln ('s = ', s,' - четное значение')

else writeln ('s = ', s,' - нечетное значение') ;

end.

Пример:

394

s = 16 - четное значение