home *** CD-ROM | disk | FTP | other *** search
/ Flop Magazin 35 / Flop_Magazin_35_1995_03_Raster_cs_Side_A.atr / hlav34.lt < prev    next >
Text File  |  2023-02-26  |  927b  |  1 lines
  1. 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 ? "************************************"¢