1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | INPUT "vvedite chislo ",n& m&=n& DIM a( 10 ) DO k=m& MOD 10 a(k)=a(k)+ 1 m&=m&\ 10 LOOP UNTIL m&= 0 max= 0 FOR i= 0 TO 9 IF a(i)>max THEN max=a(i):c=i NEXT PRINT" iskomaya cifra=";c PRINT"pozicii:" DO k=n& MOD 10 t=t+ 1 IF k=c THEN PRINT t; n&=n&\ 10 LOOP UNTIL n&= 0 |