• Написать программу на Pascal


    Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.

Ответы 2

  • благодарю
    • Автор:

      kayden96
    • 5 лет назад
    • 0
  • Var      a,b,c:integer;Beginb:=1;c:=1;  Write('Введите число: '); readln(a);    while (b<=a) do      begin      c:=c+1;      b:=b*c;       end;  Writeln('Ответ: ',c);End.
  • Добавить свой ответ

Войти через Google

или

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

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

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