Предмет: Информатика, автор: Fishman12

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


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

Ответы

Автор ответа: m0nclous
0
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.
Автор ответа: Fishman12
0
благодарю
Похожие вопросы
Предмет: Математика, автор: maisak2089