zadach362.BAS

{* Задача362 *}

REM basic

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


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