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

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

Question

Информатика

Акулинка

22 октября, 11:25

Написать программу на 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.