Дано трехзначное число N. определить будет ли сумма его цифр четным числом

Question

Информатика

Венуля

11 сентября, 07:34

Дано трехзначное число N. определить будет ли сумма его цифр четным числом

+2

Ответы (1)

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

Гаша · Answer 1

Решение на языке Pascal

program pr;

var n, a, b, c, sum:integer;

begin

readln (n) ;

a:=n div 100;

b:=n mod 100 div 10

c:=n mod 10

sum:=a+b+c;

if sum mod 2 = 0 then writeln ('Сумма цифр четная') else writeln ('Сумма цифр четная') ;

readln;

end.