Ввод и вывод массива из 100 элементов, заданных случайным образом из [-20;20].
257
484
Ответы на вопрос:
// у нас получается прогрессия вида 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.
Популярно: Информатика
-
temirlan2019p21.10.2021 23:54
-
лолчик617.01.2020 07:04
-
Джахаршин820.04.2020 05:31
-
папаочка22802.01.2021 02:47
-
danilasen3409.04.2022 08:32
-
thrasher777711.06.2023 07:50
-
Juliaaaanaaa27.01.2023 17:29
-
Nastykaramova06.05.2021 11:16
-
kmidakova26.02.2020 14:15
-
филя2424.06.2020 12:27