Составить программу , определяющую в каком из данных двух чисел больше четных цифр, пожалуйста

+ 0 -

Saltikowamaria

15 февр. 2015 г., 7:25:15 (9 лет назад)

VB.
Dim CountA As Integer
Dim CountB As Integer       
Dim x As Integer       
Dim a As Integer       
Dim b As Integer       
a = InputBox("Введите а")       
b = InputBox("Введите b")
        For x = 1 To Len(CStr(a))
            If CInt(Mid(CStr(a), x, 1)) Mod 2 = 0 Then CountA += 1
        Next
        For x = 1 To Len(CStr(b))
            If CInt(Mid(CStr(b), x, 1)) Mod 2 = 0 Then CountB += 1
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535

+ 0 -

Monuak

15 февр. 2015 г., 8:47:50 (9 лет назад)

извините забыл написать нужно с помощью подпрогрммы процедуры , паскаль