Eugeniusz Jakubas |
Stąd można pobrać teksty źródłowe poniższych 57 programów w Pascalu pr-pascal.zip - 34 kB
12. Liczba e
Program e; uses crt; var n,k:integer; a:real; begin clrScr; for n:=1 to 100 do begin a:=1+1/n; for k:=1 to n-1 do a:=a*(1+1/n); writeLn(n,'. ',a:1:10); end; readLn; end. |