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

Предыдущий
вопрос Следующий
вопрос

program Task2;
var
number, digit1, digit2, digit3, sum: integer;
begin
write('Введите трёхзначное число: ');
readln(number);

digit1 := number div 100;
digit2 := (number mod 100) div 10;
digit3 := number mod 10;

sum := digit1 + digit2 + digit3;

if sum mod 2 = 0 then
writeln('1')
else
writeln('0');
end.