Question

прошу максимум легко, Написать программу на языке Паскаль, с помощью которой можно вывести на экран первые 10 чисел геометрической прогрессии: bn = bn-1 * q, где b0 и q вводятся с клавиатуры

Answer 1

var

b0, q : double;

begin

writeln('Введите b0 и q:');

readln(b0, q);

writeln;

for var i := 1 to 10 do

  writeln(b0 * exp((i - 1) * ln(q)));

end.