Регистрация
antonareninozvuw8
31.05.2023 03:15
Информатика
Есть ответ 👍

Напишите инструментарий !

268
362
Посмотреть ответы 1

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

polinakolesnik4
polinakolesnik4
4,5(82 оценок)

// у нас получается прогрессия вида 3 5 7 9 11 и.т.д 

program ariphmp;

uses crt;

var a1,n,i: integer;

        p: longint;

begin

      clrscr;

      write('введите количество членов прогресии n: ');

      readln(n);

      p: =1; a1: =3    

      for i: =2 to n do

            begin

                  p: =p*a1;

                  a1: =a1+2;

            end;    

 

    write('произведение n-членов арифметической прогрессии: ',p);

    readkey;

end.

 

 

 

 

   

 

 

 

 

 

 

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