Pascal - prosti ciniocibroj n rastavimo na proste cinioce i to lepo ispisemo na ekranu...
Ja sam napravio programce, preko DIV i MOD operacija, koje odredi cinioce, ali umesto da za n=12 uradi 2 2 3 uradi 2 3... to jest ne odredi koliko je puta neki cinilac cinilac:
evo i koda:
PROGRAM rastavi_na_cinioce;
VAR n,I,A,P:integer;
BEGIN
writeln ('Unesi broj n: ');
read (n);
FOR I:=2 TO (n DIV 2) DO BEGIN
P:=0;
IF n MOD I=0 THEN BEGIN
FOR A:=1 TO I DO BEGIN
IF I MOD A=0 THEN P:=P+1;
END;
IF P<=2 THEN writeln (I);
END;
END;
END.
http://sr.libreoffice.org — slobodan kancelarijski paket, obrada teksta, tablice,
prezentacije, legalno bez troškova licenciranja
prezentacije, legalno bez troškova licenciranja
Re: Pascal - prosti cinioci