![]() |
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.
|
![]() |