Ответы
Ответ дал:
0
var
s: real;
b: byte;
begin
for b := 1 to 17 do
s += 1 / b;
writeln(s);
end.
3.43955...
s: real;
b: byte;
begin
for b := 1 to 17 do
s += 1 / b;
writeln(s);
end.
3.43955...
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад