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

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

Question

Информатика

Павлюня

5 января, 16:07

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

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

+5

Ответы (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.