===== PascalABC.NET =====
begin
var (i, s) := (2, 1.0);
repeat
s += 1/i;
i += 1
until i > 1000;
Print(s) // должно получиться 7.48547086055034
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== PascalABC.NET =====
begin
var (i, s) := (2, 1.0);
repeat
s += 1/i;
i += 1
until i > 1000;
Print(s) // должно получиться 7.48547086055034
end.