//PascalABC.NET 3.4.2
begin
write(seqwhile(1000.0, x -> x + (x / 100) * 15, x -> x < 10000).Count + 1);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
//PascalABC.NET 3.4.2
begin
write(seqwhile(1000.0, x -> x + (x / 100) * 15, x -> x < 10000).Count + 1);
end.