Дано четырехзначное число. определите является ли сумма цифр четной.

Question

Информатика

Моша

4 сентября, 17:42

Дано четырехзначное число. определите является ли сумма цифр четной.

+5

Ответы (1)

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

Виленин · Answer 1

Program n1;

var a: integer;

sum: real;

begin

write ('введите 4-х значное число: ') ;

readln (a) ;

sum: = (a mod 10) + ((a mod 100) - (a mod 10)) / 10 + ((a mod 1000) - (a mod 100) - a mod 10) / 100 + (a div 1000) ;

if (round (sum) mod 2=0) then writeln ('сумма четная') else writeln ('сумма нечетная') ;

end.