Программка по VBA

[Burn789]

Добрый день! Помогите пожалуйста написать программку на VBA у верен что для настоящих программеров это займет не больше 5 мин.
Задачка звучит так.

Написать программу, которая считает количество четных и нечетных чисел среди N чисел.

В зарание спасибо огромное.

[Burn789]

var x,z,k:integer;
begin
readln(x);
k:=0;
while x>0 do
begin
z:=x mod 10;
if z mod 2=0 then k:=k+1;
x:=x div 10;
end;
writeln(k);
end.

[Aleksandr H.]

Сообщение от Burn789

у верен что для настоящих программеров

Откуда такая уверенность? Как человек, который не может найти четные числа, может судить о сложности решения?

https://www.google.com.ua/search?q=v...XrB8udXqi8opAN

Sub main()
Dim P As Byte, N As Byte, i As Byte, A As Integer, C As Byte
Randomize
C = CInt(InputBox("N=", "", 20))
For i = 1 To C
    A = CInt(InputBox(i, "", Int(100 * Rnd - 50)))
    If A And 1 Then
        N = N + 1
    Else
        P = P + 1
    End If
Next i
MsgBox "Чётных : " & P & Chr(13) & "Нечетных : " & N
End Sub

[Cuprum5]

Клевая программа!:D Я если честно подумал, что ему надо от 1 до N числа подряд числа посчитать. Автор Вам как нужно на самом деле-то?

[Burn789]

var x,z,k:integer;
begin
readln(x);
k:=0;
while x>0 do
begin
z:=x mod 10;
if z mod 2=0 then k:=k+1;
x:=x div 10;
end;
writeln(k);
end.

Сообщение от Aleksandr H.

Откуда такая уверенность? Как человек, который не может найти четные числа, может судить о сложности решения?

https://www.google.com.ua/search?q=v...XrB8udXqi8opAN

Sub main()
Dim P As Byte, N As Byte, i As Byte, A As Integer, C As Byte
Randomize
C = CInt(InputBox("N=", "", 20))
For i = 1 To C
    A = CInt(InputBox(i, "", Int(100 * Rnd - 50)))
    If A And 1 Then
        N = N + 1
    Else
        P = P + 1
    End If
Next i
MsgBox "Чётных : " & P & Chr(13) & "Нечетных : " & N
End Sub

Спасибо так вот и нужно было )))))))))))))