1 2 3 4 5 6 7 | CLSINPUT nFOR i = 1 TO nIF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1: PRINT iNEXT IF f <> 1 THEN PRINT " takih chisel net" |
1 2 3 4 5 6 7 | CLSINPUT nFOR i = 1 TO nIF (n MOD (i ^ 2)) = 0 AND (n MOD (i ^ 3)) <> 0 THEN f = 1: PRINT iNEXT IF f <> 1 THEN PRINT " takih chisel net" |