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

Question

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

Comments

сумму значащих цифр в числе?

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