• Задано натуральное число n. Найти отношение произведения цифр заданного числа к сумме его цифр.
    Паскаль.

Ответы 1

  • Var   n,c,S,P:integer;BeginWrite('n = ');ReadLn(n);S:=0;P:=1;While n > 0 do   Begin   c:=n mod 10;   S:=S+c;   P:=P*c;   n:=n div 10   End;WriteLn('P/S = ',P/S);End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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