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

Question

Информатика

Кока

27 февраля, 08:26

Найти сумму значащих цифр, превышающих 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