П  ривет всем! теперь хочу спросить по аналогичным задачам на этот раз геом прогрессия. ниже код многоуважаемого Alexeis1 только изменены некоторые данные. немогу найти н член прогрессии возвести в степень. и ниже что надо поменять?Надо сделать её через сумму геометрической прогрессии. помогите плиз.
| Код |
var
A0, A1, C, Ai, I, j, S, n, k : LongInt;
fl : boolean;
.....................................
Writeln('Введите n');
Write('n=');
Read(n);
Writeln;
A0 := 2;
A1 := 8;
C := A1/A0;
S := 0;
i := 0;
k := 0;
Repeat
inc(i);
Ai :=A0*????;{как возвести q в степень i-1? и ниже что менять надо?)
fl := false;
For j := 2 to Ai - 1
do
if (Ai mod j) = 0
then
Begin
fl := true;
Break;
end;
if not fl
then
Begin
S := S + Ai;[quote]
[/quote]
inc(k);
end
until k = n;
writeln('S=', S);
|
и ещё вот эта..я уже понял, что эта на рекурсию, но толку....
sqr(sqr(...sqr(sqr(x+a)+a)+...+a))+a. всего n скобок.
|