=0;$i--) { $ujsz = $ujsz.$sz[$i]; } if($sz==$ujsz) return 1; else return 0; } function prim($sz) { $oszto=2; $van=0; while(($oszto<$sz)&&($van==0)) { if($sz % $oszto == 0) $van=1; $oszto++; } if(($van==0)&&($sz>1)) return 1; else return 0; } //Megirtam de nem hasznaltam function fibo($sz) { $f1=1; $f2=1; while($f2<$sz) { $f=$f1+$f2; $f1=$f2; $f2=$f; } if($sz==$f2) return 1; else return 0; } //Generate the first 50 and write into a table echo ''; echo ""; echo ""; echo ""; echo ""; echo ""; //Core $n=50; //Hany szam? $i=0; //kiirt szamok; $j=0; //a szam $tukorVektor=array(); while($i<=$n) { if(tukor($j)) { $i++; $tukorVektor[$i]=$j; $j++; } else $j++; } $i=0; //kiirt szamok; $j=0; //a szam $primVektor==array(); while($i<=$n) { if(prim($j)) { $i++; $primVektor[$i]=$j; $j++; } else $j++; } $fiboVektor=array(); $i=1; $fiboVektor[0]=1; $fiboVektor[1]=1; while($i<$n) { $fiboVektor[$i+1]=$fiboVektor[$i]+$fiboVektor[$i-1]; $i++; } for($i=1;$i<=$n;$i++) { echo ""; } echo "

Index	Primszám	Fibonacci szám	Tükörszám
$i	$primVektor[$i]	$fiboVektor[$i]	$tukorVektor[$i]

"; ?>