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

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

Question

Информатика

Матрона

1 марта, 16:53

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Егор · 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.