Question

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

Answer 1

var
a,b,c,d,e:integer;
begin
read(a);
c:=a mod 10 ;
b:=a div 10 mod 10;
d:= a div 100 mod 10;
e:=c+d+b;
if e mod 2 =0
then write('Четное')
else write('Нечетное'); end.