Предмет: Информатика,
автор: Klica
заполните массив двадцатью первыми членами геометрической прогрессии с известным первым членом прогрессии a и ее знаменателем z
Ответы
Автор ответа:
7
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.
Интересные вопросы
Предмет: Русский язык,
автор: 888oksana888
Предмет: Французский язык,
автор: viola123415
Предмет: Французский язык,
автор: KiraLira
Предмет: Алгебра,
автор: starfi2018
Предмет: Обществознание,
автор: mrx82