Ocena użytkownikóww: ***** / 2
Nadesłany przez Tomasz Lubiński, 12 stycznia 2011 21:37
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
Rozklad - Delphi/rozklad.dpr:
//Rozklad liczby na czynniki pierwsze
//(c) 2011 by Tomasz Lubinski
//www.algorytm.org
program rozklad;
{$APPTYPE CONSOLE}
uses
SysUtils, Math;
var
x, i, e: Integer;
begin
//pobierz wartosc od uzytkownika
Writeln('Podaj wartosc x');
Readln(x);
//rozloz na czynniki pierwsze
write('Czynniki pierwsze liczby ', x, ' to:');
i := 2;
e := floor(sqrt(x));
while i <= e do
begin
while (x mod i) = 0 do
begin
write(' ', i);
x := x div i;
e := floor(sqrt(x));
end;
i := i + 1;
end;
if x > 1 then write(' ', x);
//czekaj na enter od uzytkownika
Readln;
end.
