Question

Дано вещественное число А и целое число N (>O) используя один цикл найти сумму. 1+ А+ А ( в кд.) + А (в кубе) + . . . . + А ( в N)

Answer 1

program dl9_meru3;

var a,s:real; n,i:integer

begin

writeln ('Vvedit A i N(>0)');

readln (a,n);

s:=0; 

a:=a+1; 

for i:=2 to n do

begin 

s:=s+a;

a:=a*a;

end;

writeln ('suma=',s);

readln

end.