• пользователь вводит положительное целое число , не превышающее 10^9, нужно написать программу , которая выводит на экран сумму цифр этого числа, меньших 7. если в числе нет цифр , меньших 7, требуется на экран вывести 0

Ответы 2

  • Что-то твоя программа неправильно считает. На любое число выводит 21
  • var  n, sum: integer;begin  read(n);  while n > 0 do  begin    if n mod 10 < 7 then      sum := sum + n mod 10;    n := n div 10  end;  writeln(sum);end.
    • Автор:

      noel89
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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