Заполните массив двадцатью первыми членами прогрессии с известным первым членом прогрессии a и ее знаменателем z
258
467
Ответы на вопрос:
var
a, z: real;
x: array[1..20] of real;
i: integer;
begin
readln(a, z);
x[1] : = a;
for i: =2 to 20 do
x[i] : = x[i-1] * z;
for i: =1 to 20 do
writeln(x[i])
end.
Популярно: Информатика
-
MATVEI23516.01.2020 03:32
-
angelinakunda30.09.2020 20:54
-
ystefaniv01.01.2022 09:08
-
kuzminasasa6406.07.2022 01:55
-
99897445240814.01.2021 22:27
-
saddddddd0323.10.2022 05:40
-
Малинка123208.10.2021 03:58
-
Руфлер11.11.2021 03:07
-
kiranay200715.09.2021 22:09
-
KristaYu22.03.2021 07:42