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

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

Question

Харлампий

6 апреля, 20:23

+3

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