
Феофан
5 год назад
Определить сумму s=1/2+2/3+...+n/(n+1)
ОТВЕТЫ

Varvara
Oct 24, 2020
var s: real;
i,n: integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+i/(i+1);
writeln('сумма: ',s);
end.
n = 10
сумма: 7.98012265512266
i,n: integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+i/(i+1);
writeln('сумма: ',s);
end.
n = 10
сумма: 7.98012265512266
192
Смежные вопросы: