zadach369 .BAS

{* Задача369 *}

REM basic

' Дано натуральное число, определить сколько раз в нем встречается максимальная цифра.


CLS
INPUT "vvedite chislo"; b
Do
    q = b Mod 10
    If q > max Then max = q: k = 0
    If q = max Then k = k + 1
    b = b  10
Loop Until b = 0
PRINT k
End