ТутРешу.Ру

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

Задание:

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

Решение:

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.




Знаете другой ответ?

Отправить свой ответ