home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Flop Magazin 35
/
Flop_Magazin_35_1995_03_Raster_cs_Side_A.atr
/
hlav34.lt
< prev
next >
Wrap
Text File
|
2023-02-26
|
927b
|
1 lines
10 ? "}************************************"¢20 ? "* _ _ , *"¢30 ? "* Reseni hlavolamu z FLOPu 34 *"¢40 ? "* *"¢50 ? "* (c)1995.8 Jan Walla *"¢60 ? "* *"¢70 ? "************************************"¢80 ? ¢90 TIME$= "000000"¢100 DIM A(100):A(1)=1:A(2)=2:A(3)=3¢110 ? "1 - 1":? "2 - 2":? "3 - 3"¢120 CISLO=3¢130 FOR POCET=4 TO 100¢140 CISLO=CISLO+2:POM=SQR(CISLO)¢150 FOR Q=3 TO POCET¢160 IF A(Q)>POM THEN POP :GOTO 190¢170 IF CISLO/A(Q)=INT(CISLO/A(Q)) THEN POP :GOTO 200¢180 NEXT Q¢190 A(POCET)=CISLO:? POCET;" - ";CISLO:GOTO 210¢200 POCET=POCET-1¢210 NEXT POCET¢220 ? ¢230 ? "************************************"¢240 ? "* _ , _ *"¢250 ? "* Potrebny cas: ";TIME$;" *"¢260 ? "* *"¢270 ? "************************************"¢