Паскаль. Нужно расчитать последовательность чисел
1+1/2+1/3+1/4+.....1/n
Ответы на вопрос
Ответил супермен29
0
12/5 --------------------5#45
Ответил ludmilagena
0
'сумма ряда S=1+1/2+1/3+...+1/n)'
Program sum;
var n,i:integer;
s:real;
begin
write('n='); readln(n);
s:=1
for i:=2 to n do
s:=s+1/n;
writeln('n=',n);
writeln('s=',s:13:10);
end.
Program sum;
var n,i:integer;
s:real;
begin
write('n='); readln(n);
s:=1
for i:=2 to n do
s:=s+1/n;
writeln('n=',n);
writeln('s=',s:13:10);
end.
Новые вопросы