Срочно надо написать программу для турбо-паскаль

Question

Тема: вложенный цикл . задание: Дано натуральное n. Вычислить fk=(k+1)+(k+2)+...+(k+k)

вычислеть 
а) f1*f1*f3*...*fn 
б) f1+f1+f3+...+fn 
где и формула та что написана выше

Сергей Романов · Accepted Answer

Судя по тому что вы написали возможно так но где в формуле 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