Question

Составьте алгоритм с помощью которого можно определить , является ли сумма цифр задорного трёхзначного числа N четным числом

Answer 1

uses crt;
var n, s: integer;
begin
s := 0;
readln(n);
if (n > 99) and (n < 1000) then
begin
while n > 0 do
begin
s += n div 10;
n := n div 10;
end;
if s mod 2 = 0 then writeln('YES')
else writeln('NO');
end
end.