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

Question

Информатика

Васена

21 января, 08:14

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

+1

Ответы (1)

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

Рося · Answer 1

Uses crt;

var n, sum, i:integer;

begin

read (n) ;

while n>0 do

begin

if ((n mod 10) mod 2=0) and (n mod 10<8) then

sum:=sum + (n mod 10) ;

n:=n div 10;

end;

writeln (sum) ;

end.