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

Question

Информатика

Илюся

22 июня, 03:49

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

+3

Ответы (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.