zadach361.BAS

{* Задача361 *}

REM basic

' Дано n-натуральное число. Сколько раз данная цифра(ы) встречается в данном числе.N и a вводятся с клавиатуры.


CLS
INPUT "vvedite n,a"; n, a
Do
    If n Mod 10 = a Then k = k + 1
    n = n  10
Loop Until n = 0
PRINT "k="; k
End