Предмет: Информатика,
автор: Fishman12
Написать программу на Pascal
Пользователь вводит число. Сколько последовательно расположенных натуральных чисел необходимо, что бы их произведение стало больше введенного пользователем числа.
Ответы
Автор ответа:
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.
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.
Автор ответа:
0
благодарю
Похожие вопросы
Предмет: Информатика,
автор: abdurahmanovasitora9
Предмет: Математика,
автор: maisak2089
Предмет: Немецкий язык,
автор: miklaevmatvey23
Предмет: Математика,
автор: Аноним