Question

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

Answer 1

Var
      a,b,c:integer;
Begin
b:=1;c:=1;
  Write('Введите число: '); readln(a);
    while (b<=a) do
      begin
      c:=c+1;
      b:=b*c;
       end;
  Writeln('Ответ: ',c);

End.