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

Ответы 1

  • varn,sum:integer;beginReadln(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.Пример:1354838
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years