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

Question

Информатика

Юния

9 мая, 20:17

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

+3

Ответы (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.