Найти сумму значащих цифр, превышающих 5. Паскаль с оператором while

Question

Информатика

Аделаида

15 мая, 09:44

Найти сумму значащих цифр, превышающих 5. Паскаль с оператором while

+4

Ответы (1)

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

Василий · Answer 1

Var

n, sum:integer;

begin

Readln (n) ;

while n > 0 do

begin

if n mod 10 > 5 then

sum: = sum + n mod 10;

n: = n div 10;

end;

writeln (sum) ;

end.

Пример:

135483

8