Anonymní profil zoufalec – Programujte.com

ten algoritmus funguje spravne ...... uz to mam vyzkouseny.......

ale repeat until taky musim dopredu vedet kolik budu mit radku na vstupu....

btw ten kod sem malinko zmenil ale ted to nacte vsechny cisla v radku a udela to jejich faktorizaci coz je pro me spatne
ja potrebuju kdyz dostanu na vstupu

10
6
100
abych dostal na vystupu
2 5
2 3
2 2 5 5

radek muzu dostat jeden a nebo treba 1000 proste nahodne bez varovani

tady je poopraveny kod..... s pouzitim while....

program roznasouprv;
var rozklad:string;
n,jaky,cislo1,pocet,i:longint;

begin;
while not eoln do
begin
i:=1;
read(cislo1);
n:=2;
rozklad:='';
jaky:=0;
while cislo1<>1 do
begin
while ((cislo1 mod n)=0) do
begin
if not(i=1) then write(' ');
i:=i+1;
cislo1:=cislo1 div n;
write(n,'');
end;
n:=n+1;
end;
writeln;
end;
end.


diky predem za pomoc ...... pripadne o vysvetleni logickeho postupu jak uvazovat v takovych to pripadech....