Написать программу на Pascal Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.
Написать программу на Pascal
Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы