По заданной формуле (ii)/( 2+(ii*i) ) члена ряда с номером k составить: программу вычисления, с помощью цикла repeat...until, суммы первых членов заданного ряда, при k = 1, 2, 3, ..., n

Категория: Delphi/Pascal

2012-01-16 21:15:44

code: #pascal

Program PascalGuru;
 
var k,summa:real;
    i,n:integer;
 
begin
write('n= '); readln(n);
i:=0;
summa:=0;
repeat
inc(i);
k:=(i*i)/( 2+(i*i*i) );
summa:=summa+k;
until i=n;
 
writeln('Summa= ',summa:0:2);
 
readln;
end.

Поделиться:

Похожие статьи:

теги: студенты, сумма