Заполните массив двадцатью первыми членами прогрессии - вопрос №1597393 от andrey43201 11.03.2021 14:37

Question

Информатика: Заполните массив двадцатью первыми членами прогрессии с известным первым членом прогрессии a и ее знаменателем z

andrey43201 · Answer

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.