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

Ответ:

Объяснение:

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.