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

disel
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

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment