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

EpsilonDelta EpsilonDelta    1   01.03.2019 03:10    2

Ответы
mrredrussiap06j9h mrredrussiap06j9h  06.06.2020 21:18

Решение на языке 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика