Составьте программу,которая определяет,является ли сумма цифр введённого целого трёхзначного числа чётным числом.
Answers & Comments
rgmod
Var a:integer; begin readln(a); a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10); if a mod 2 = 0 then writeln ('сумма цифр числа четная') else writeln ('сумма цифр числа нечетная'); end.
Answers & Comments
begin
readln(a);
a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10);
if a mod 2 = 0 then writeln ('сумма цифр числа четная')
else
writeln ('сумма цифр числа нечетная');
end.