ПАСКАЛЬ Дано действительное число Х и целое число N. Вывести N первых членов...

Question

ПАСКАЛЬ Дано действительное число Х и целое число N. Вывести N первых членов геометрической прогрессии и найти сумму ее первых членов, если первый член Х, а знаменатель (– 8,38). Задачу необходимо решить в Pascal/

Answer 1

Ответ:

Объяснение:

var

 x, q, b, sum:real;

 i, n:integer;

begin

 writeln('Input x = ');

 readln(x);

 writeln('Input n = ');

 readln(n);

 writeln('b[1] = ', x:3:3);

 q:=-8.38;

 b:=x;

 sum:=x;

 for i:=2 to n do begin

   b:=b*q;

   writeln('b[', i, '] = ', b:3:3);

   sum:=sum + b;

 end;

 writeln('Sum = ', sum:3:3);

 readln;

end.