|
|
BSD 4.3tahoe
program egwhile(output); var i,n: integer; h: real; begin n := 10; write(n); h := 0; for i := n downto 1 do h := h + 1/i; writeln(h) end.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.