Question

Дано четырех значное число. Нужно проверить является ли сумма цифр заданного числа. Формат ввода: в входном файле находится одно четырех значное число. Формат вывода: в выходной файл следует вывести сообщение "YES", если сумма цифр число четная или "NO", если сумма не четная. язык паскаль

Answer 1

Program Test;

Var a, b, c, d, num, sum: integer;

Begin

Write('Введите четырехзначное число: ');
Readln(num);

a := num div 1000;
b := num div 100;
b := b mod 10;
c := num div 10;
c := c mod 10;
d := num mod 10;

sum := a + b + c + d;

if (sum mod 2 = 0) then
begin
Writeln();
Writeln('Yes');
end

else
begin
Writeln();
Writeln('No');
end;

End.