t07.p

来自「早期freebsd实现」· P 代码 · 共 13 行

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.