Ответы
Ответ дал:
0
var
i, n:integer;
s, w:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
w:=(i+1)/i;
s:=s+w;
end;
writeln('Ответ: ', s);
end.
Ответ дал:
0
и зачем лишняя переменная w ?
Ответ дал:
0
Видимо "шоб було"
Ответ дал:
0
var
i, n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
s:=s+(i+1)/i;
end;
writeln('Ответ: ', s);
end.
i, n:integer;
s:real;
begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
s:=s+(i+1)/i;
end;
writeln('Ответ: ', s);
end.
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
Writeln('S=',SeqGen(ReadInteger('n='),i->(i+2)/(i+1)).Sum)
end.
Тестовое решение
n= 10
S=12.9289682539683
begin
Writeln('S=',SeqGen(ReadInteger('n='),i->(i+2)/(i+1)).Sum)
end.
Тестовое решение
n= 10
S=12.9289682539683
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад