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

Question

Информатика

Агапия

7 ноября, 04:05

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

+4

Ответы (1)

Знаете ответ?

Захария · 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.