Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним.

@Mary148666 · Регистрация: 24.05.2011

Author24 — интернет-сервис помощи студентам

Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним.
Задание по курсовой((

@_Лёша_ · 25.05.2011, 12:52

Наверное так

Visual Basic

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

@Mary148666 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 3
		1
	Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним. 24.05.2011, 16:01. Показов 1265. Ответов 1 Метки нет (Все метки) Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним. Задание по курсовой(( 0

	25.05.2011, 12:52

Опции темы