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

Question

Информатика

Домитилла

4 октября, 18:49

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ксенофонт · Answer 1

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.