Question

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

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.