Rozklad čísla na prvočinitele

Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Rozklad.pas
Subor exe: Rozklad.exe

{ ROZKLAD.PAS                                    Copyright (c) Pheo }
{ Rozklad čísla na prvočinitele.                                    }
{                                                                   }
{ Datum:04.03.1999                             http://www.trsek.com }
 
Program rozklad;
uses crt;
var n : longint;
 
procedure prvocislo(k:longint);
var i:integer;
begin
 i:=1;
 if k>1 then repeat
              i:=i+1;
             until (k mod i) = 0;
 if k=i then write(k)
        else begin
              write(i,' * ');
              prvocislo(k div i);
             end;
end;
 
begin
 clrscr;
 writeln('Zadaj cislo ');
 read(n);
 write(n,' = ');
 if n<0 then write(' - 1 * ');
 if n<>0 then prvocislo(abs(n))
         else write(' - ');
 repeat
 until keypressed;
end.