Дано натуральное число. Определить наиболее часто повторяющуюся в нем цифру и указать ее позиции в числе

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

автор: кот Бегемот

Поделиться:

Похожие статьи: