Ответ(ы) на вопрос:
Гостьvar
s: real;
b: byte;
begin
for b := 1 to 17 do
s += 1 / b;
writeln(s);
end.
3.43955...
Не нашли ответ?
Похожие вопросы
ГостьГость