Anonymní profil zoufalec – Programujte.com

jeste drobnost kdyz jsem tam napsal na tvrdo todle tak jsem dostal 10% spravne ..... tak teoreticky bych to musel udelat s ohromnym mnozstvim for cyklu s podminkama tak aby si to nejak zjistilo kolik radku je na vstupu ...... ale mam takovej dojem ze bych u toho zestarnul......
program roznasouprv;
var rozklad:string;
var n,jaky,cislo1,cislo2,cislo3,cislo4,i:longint;

begin;

i:=1;
read(cislo1);
read(cislo2);
read(cislo3);
read(cislo4);
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;
n:=2;
rozklad:='';
jaky:=0;

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

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

while cislo4<>1 do
begin
while ((cislo4 mod n)=0) do
begin
if not(i=1) then write(' ');
i:=i+1;
cislo4:=cislo4 div n;
write(n,'');
end;
n:=n+1;
end;
writeln;


end.

takhle to poroslo alespon prvnim testem a dalo mi to tech 10% ale dle me jen pro to ze sem trefil prvni zkoumany pocet ostatni testy mi vyhodily wrong answer......

mno teoreticky klavesnici ale nemam uplne predstavu vyhodnocuje to skolni system....... a tak jsem to zkusil eof a to mi nevzal.... tak opravduu uz nevim prej programovani pro zavatecniky 1 :D mam co delat abych tyden po prednasce a cviku pochopil jak ty veci pracujou..... takze je to pro me trosku problem.....

Mam drobny problem potrebuju do programu vlozit cylus for tak by mi cyklil tak dlouho dokud nenarazi na posledni radek ale radku je n. tim myslim jako ze muzou bejt dva a nebo milion... zde dam jeste kod kde se vyskytnul muj problem....


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

begin;

i:=1;
for pocet:=1 to 2E31 do begin {/!!!! <<---- zde je muj problem----- }
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.