Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним. - VB
Формулировка задачи:
Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним.
Задание по курсовой((
Решение задачи: «Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним.»
textual
Листинг программы
Dim Strinput() As String = Split(inputbox("Введите последовательность через пробел"))
Dim i As Integer
Dim ch As Integer
Dim Sum as Integer
For i = 0 To Strinput.Length - 1
If CInt(Strinput(i)) Mod 2 = 0 Then
Ch = i + 1
Exit For
Else
Sum = Sum + CInt(Strinput(i))
end if
Next
if Ch > 0 then
msgbox (" Номер первого из четных чисел " & Ch & " Cумма чисел, стоящих перед ним " & Sum)
Else
msgbox ("Четные числа отсутствуют")
end if