Вопрос пользователя:
Дано вещественное число А и целое число N (>O) используя один цикл найти сумму. 1+ А+ А ( в кд.) + А (в кубе) + . . . . + А ( в N)
Илюха отвечает:
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.