Составьте программу, которая определяет, является ли сумма цифр введенного целого...

Question

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

Pascal ABC.

Answer 1

Var a,s:integer;
begin
write('a = ');
readln(a);
s:=a div 100 + a div 10 mod 10 + a mod 10;
if s mod 2 = 0
 then writeln('s = ',s,' - четна')
 else writeln('s = ',s,' - нечетна')
end.

Пример:
a = 915
s = 15 - нечетна