Eugeniusz Jakubas
programy źródłowe w Pascalu

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.