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

Question

ВД [7]

11 месяцев назад

13

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

Знания

Информатика

1 ответ:

Алексей198905 · Answer 1 · 2020-03-17T13:46:52+03:00

Алексей19890511 месяцев назад

0 0

Var
sum,n,n1,n2,n3:integer;
begin
readln(n);
n1:=n div 100;
n3:=n mod 10;
n2:=(n mod 100) div 10;
sum:=n1+n2+n3;
if sum mod 2 = 0 then
writeln("Четное")
else
writeln("Не четное");
end.