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

yil yil    2   20.05.2019 13:50    2

Ответы
students17 students17  01.10.2020 00:51

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.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика