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

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


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

Задать свой вопрос
1 ответ
Var
      a,b,c:integer;
Begin
b:=1;c:=1;
  Write('Введите число: '); readln(a);
    while (blt;=a) do
      begin
      c:=c+1;
      b:=b*c;
       end;
  Writeln('Ответ: ',c);

End.
Валек Фатеичев
благодарю
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт