1 2 3 | CLS: PRINT "Vvedite stroku: ";: INPUT st$FOR pr% = 1 TO LEN(st$): IF MID$(st$, pr%, 1) = " " THEN ko% = ko% + 1NEXT: PRINT "Probeli:"; ko% |
1 2 3 | CLS: PRINT "Vvedite stroku: ";: INPUT st$FOR pr% = 1 TO LEN(st$): IF MID$(st$, pr%, 1) = " " THEN ko% = ko% + 1NEXT: PRINT "Probeli:"; ko% |