Тема: вложенный цикл . задание: Дано натуральное n. Вычислить fk=(k+1)+(k+2)+...+(k+k)
вычислеть
а) f1*f1*f3*...*fn
б) f1+f1+f3+...+fn
где и формула та что написана выше
Судя по тому что вы написали возможно так но где в формуле n?
var
i,k,fk:Integer;
begin
k:=10;
fk:=0;
for i:=1 to k do begin
fk:=fk+(k+i);
end;
end;
Или если надо сумму ряда то так
var i,n,k,z: integer;
s:real;
begin
write('n=');
read(n);
z:=1;s:=1;k:=1;
i := 1; // Счетчик
repeat
s:=s+z*1/k;
k := k * 2; // Увеличиваем степень
i := i + 1; // Увеличиваем счетчик
z:=-z; // z еще переместить сюда
until i<=n;
write('s=',s);
end
⇢