![]() |
Eugeniusz Jakubas |
Stąd można pobrać teksty źródłowe poniższych 57 programów w Pascalu pr-pascal.zip - 34 kB
27. Rozkład na czynniki pierwsze
Program Rozklad_na_czynniki_pierwsze; uses crt; var liczba,n:longInt; begin clrscr; liczba:=1995; n:=2; repeat if liczba mod n=0 then begin writeLn(liczba:15,' ł ',n); liczba:=liczba div n; end else n:=n+1; until n>sqrt(liczba); if liczba<>1 then writeLn(liczba:15,' ł ',liczba); write(1:15,' ł'); readln; end. |
![]() |