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

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

Leave a Comment