Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)

Question

Информатика

Аполлинария

7 января, 23:00

Дано натуральное число N. Найти сумму и количество чётных цифр. (На Паскале)

+1

Ответы (1)

Знаете ответ на вопрос?

Феофилакт · Answer 1

var

n:longint;

k, sum:integer;

begin

write ('N = ') ;

readln (n) ;

k:=0;

sum:=0;

while n 0 do

begin

if (n mod 10) mod 2 = 0 then

begin

k:=k+1;

sum:=sum + (n mod 10) ;

end;

n:=n div 10;

end;

writeln ('Summa: ', sum) ;

writeln ('Kol-vo: ', k) ;

readln;

end.