Дано натуральное число. Определить наиболее часто повторяющуюся в нем цифру и указать ее позиции в числе
Категория: Basic
2012-03-02 16:46:34
code: #basic
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
автор: кот Бегемот
Поделиться: