В программе Паскаль Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.
В программе Паскаль Дано трёхзначное число. Определите, является ли сумма цифр этого числа чётным числом. Если да, то выведите 1, иначе выведите 0.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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.