В программе Паскаль
Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.
Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.
More Questions From This User See All
Answers & Comments
begin
readln(x);
sum:=1;
while x>0 do begin
sum+=x mod 10;
x:=x div 10;
end;
writeln(sum mod 2);
end.