Регистрация
reded5610
14.05.2022 06:48
Информатика
Есть ответ 👍

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

181
404
Посмотреть ответы 2

Ответы на вопрос:

RTAKZM
RTAKZM
4,4(4 оценок)
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.
MrLED
MrLED
4,5(49 оценок)

program ur1;

uses crt;

var a,b,x: real;

begin

      clrscr;

      write('введите а> 0: ');

      readln(a);  

      if (a=0) then a: =1; {чтобы избежать ошибки во время выполнения}

      write('введите b: ');

      readln(b);

 

      x: =b/a;

    writeln('x=',x);

    readkey;  

 

  end.

 

 

 

   

 

 

 

 

 

 

 

 

 

Популярно: Информатика