В программе Паскаль

Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.

Question

Валентинка

18 ноября, 11:14

+5

Ответы (1)

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

Радован · Answer 1

Var x, sum:integer;

begin

readln (x) ;

sum:=1;

while x>0 do begin

sum+=x mod 10;

x:=x div 10;

end;

writeln (sum mod 2) ;

end.

В программе ПаскальДано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.