Проверить истинность утверждения: "Среди введённых чисел чётное число чётных"

@Definited · Регистрация: 10.10.2017

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

4.Программа вводит с клавиатуры 5 чисел и проверяет, верно ли утверждение: "Среди введённых чисел чётное число чётных".

@Alex77755 · 15.10.2017, 13:56

Четное число делится на 2
Проверить можно оператором MOD
В справке и пример имеется! Лень справочник открыть? Всё бы за тебя кто-то делал!

В данном примере оператор Mod выполняет деление двух чисел и возвращает остаток. Если любой из операндов является действительным числом, он предварительно округляется до целого.

Visual Basic
1
2
3
4
5
Dim MyResult
MyResult = 10 Mod 5 ' Возвращает 0.
MyResult = 10 Mod 3 ' Возвращает 1.
MyResult = 12 Mod 4.3   ' Возвращает 0.
MyResult = 12.6 Mod 5   ' Возвращает 3.

@Definited · 16.10.2017, 17:47 **[ТС]**

Alex77755, и тут спасибо. Эту задачу не знаю за чем разместил, ведь она же элементарна!

@gaw · 16.10.2017, 18:34

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

Программа вводит с клавиатуры 5

- это интересно

@Definited · 17.10.2017, 20:32 **[ТС]**

Вроде так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Main()
Console.WindowWight = 60
Console.WindowHeigth = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim N1, N2, N2, N3, N4, N5 As Integer 
Dim K As Byte 'чётное число
 
Console.WriteLine("Введите число")
N1 = Console.ReadLine()
Console.WriteLine("Введите число")
N2 = Console.ReadLine()
Console.WriteLine("Введите число")
N3 = Console.ReadLine()
Console.WriteLine("Введите число")
N4 = Console.ReadLine()
Console.WriteLine("Введите число")
N5 = Console.ReadLine()
 
If N1 Mod 2 = 0 Then
   K = 1
ElseIf N2 Mod 2 = 0 Then
   K = K + 1
ElseIf N3 Mod 2 = 0 Then
   K = K + 1 
ElseIf N4 Mod 2 = 0 Then
   K = K + 1
ElseIf N5 Mod 2 = 0 Then
   K = K + 1
End If 
 
If K Mod 2 = 0 Then 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - верно")
Else 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - неверно")
 
Console.ReadKey()
End Sub

SoftIce · 17.10.2017, 20:58

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

Вроде так.

Нет, не так. Условие подсчёта неправильно сделано.

Остап Бонд · 17.10.2017, 21:22

Definited, вы на коленке код пишите?
Я очень поверхностно знаком с VB.NET, однако при первом взгляде на код увидел 4 ошибки в коде-
1 Console.WindowWidth = 60
2 Console.WindowHeight = 30
3 дважды объявлен N2
4 нет END IF в 36-й строке

и одну критическую в логике - при вычислении к - каждую переменную надо проверять на четность отдельно, без ELSE

Добавлено через 12 минут
и подобных ляпов вы наплодили во всех своих ответах на свои же вопросы...

@Definited · 17.10.2017, 22:17 **[ТС]**

Извиняюсь, не запускал код(

Добавлено через 3 минуты
Остап Бонд, спасибо большое за объяснения.
P.S. visual basic в этом месяце начал изучать.

Добавлено через 6 минут
Не понял про ошибку с переменной K.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim N1, N2, N3, N4, N5 As Integer 
Dim K As Byte 
 
Console.WriteLine("Введите число")
N1 = Console.ReadLine()
Console.WriteLine("Введите число")
N2 = Console.ReadLine()
Console.WriteLine("Введите число")
N3 = Console.ReadLine()
Console.WriteLine("Введите число")
N4 = Console.ReadLine()
Console.WriteLine("Введите число")
N5 = Console.ReadLine()
 
K = 0
If N1 Mod 2 = 0 Then
   K = K + 1
ElseIf N2 Mod 2 = 0 Then
   K = K + 1
ElseIf N3 Mod 2 = 0 Then
   K = K + 1 
ElseIf N4 Mod 2 = 0 Then
   K = K + 1
ElseIf N5 Mod 2 = 0 Then
   K = K + 1
End If 
 
If K Mod 2 = 0 Then 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - верно")
Else 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - неверно")
End If
 
Console.ReadKey()
End Sub

Добавлено через 12 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Main()
Console.WindowWidth = 60
Console.WindowHeight = 30 
Console.ForegroundColor = ConsoleColor.Yellow
 
Dim N1, N2, N3, N4, N5 As Integer 
Dim K As Byte 
 
Console.WriteLine("Введите число")
N1 = Console.ReadLine()
Console.WriteLine("Введите число")
N2 = Console.ReadLine()
Console.WriteLine("Введите число")
N3 = Console.ReadLine()
Console.WriteLine("Введите число")
N4 = Console.ReadLine()
Console.WriteLine("Введите число")
N5 = Console.ReadLine()
 
K = 0
If N1 Mod 2 = 0 Then
   K = K + 1
ElseIf N2 Mod 2 = 0 Then
   K = K + 1
ElseIf N3 Mod 2 = 0 Then
   K = K + 1 
ElseIf N4 Mod 2 = 0 Then
   K = K + 1
ElseIf N5 Mod 2 = 0 Then
   K = K + 1
End If 
 
If K Mod 2 = 0 And K <> 0 Then 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - верно")
Else 
   Console.WriteLine("утверждение: среди введённых чисел чётное число чётных - неверно")
End If
 
Console.ReadKey()
End Sub

Остап Бонд · 17.10.2017, 22:37

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

VB.NET
1
2
3
4
5
6
7
8
9
10
11
If N1 Mod 2 = 0 Then
* *K = K + 1
ElseIf N2 Mod 2 = 0 Then
* *K = K + 1
ElseIf N3 Mod 2 = 0 Then
* *K = K + 1 
ElseIf N4 Mod 2 = 0 Then
* *K = K + 1
ElseIf N5 Mod 2 = 0 Then
* *K = K + 1
End If

VB.NET
1
2
3
4
5
6
If N1 Mod 2 = 0 Then K = K + 1
If N2 Mod 2 = 0 Then K = K + 1
If N3 Mod 2 = 0 Then K = K + 1 
If N4 Mod 2 = 0 Then K = K + 1
If N5 Mod 2 = 0 Then K +=1 '!!!!!!!!!!!!!!K + 1
'''''''''''''''''End If

Зацените разницу. Вы никогда при своём подсчёте чётных не получите К>1, потому что после первого попавшегося четного остальные пропускаете.

@Definited · 17.10.2017, 22:55 **[ТС]**

Остап Бонд, надо же

. Вот это я тормоз. Впихнуть Elseif

Добавлено через 1 минуту
Остап Бонд, большое спасибо!

@fever brain · 18.10.2017, 06:38

Visual Basic
1
2
3
4
5
6
7
8
 
Private Sub Command1_Click()
    Dim v: v = Null
    While Not IsNumeric(v)
        v = InputBox("Введите число")
    Wend
    If v / 2 = v \ 2 Then MsgBox "Четно" Else MsgBox "нечетно"
End Sub

@Alex77755 · 18.10.2017, 07:32

Definited,

Я очень поверхностно знаком с VB.NET

Настолько поверхностно, что постоянно постишь не в том разделе?
Тут тебе не NET! NET тут!

@Genn55 · 18.10.2017, 17:38

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

Эту задачу не знаю за чем разместил, ведь она же элементарна!

Действительно.
Клик по форме.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Const N = 5
Private Sub Form_Click()
Cls
Dim A As Integer, i As Integer, Counter As Integer
Counter = 0
For i = 1 To N
    A = Val(InputBox("Введите число"))
    Print A;
    If A Mod 2 = 0 Then Counter = Counter + 1
Next
If Counter Mod 2 = 0 Then MsgBox "Верно" Else MsgBox "Не верно"
End Sub

Задавайте вопрос в своем разделе.
...А вообще логика решения одна и та же.

@Definited · 18.10.2017, 17:46 **[ТС]**

Genn55, можно глупый вопрос? Что такое клик по форме?

@Genn55 · 18.10.2017, 18:26

В VB6 это событие формы

Visual Basic
1
Private Sub Form_Click()

В Main() этого события нет.
В Vb.Net я не практикую.
Код будет работать,если его переписать на Vb.Net.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Definited 1 / 1 / 0 Регистрация: 10.10.2017 Сообщений: 44

	Проверить истинность утверждения: "Среди введённых чисел чётное число чётных" 14.10.2017, 18:29. Показов 1281. Ответов 14 Метки нет (Все метки) 4.Программа вводит с клавиатуры 5 чисел и проверяет, верно ли утверждение: "Среди введённых чисел чётное число чётных". 0

@Definited 1 / 1 / 0 Регистрация: 10.10.2017 Сообщений: 44
	16.10.2017, 17:47 [ТС]
	Alex77755, и тут спасибо. Эту задачу не знаю за чем разместил, ведь она же элементарна! 0

Остап Бонд Заблокирован
	17.10.2017, 21:22
	Definited, вы на коленке код пишите? Я очень поверхностно знаком с VB.NET, однако при первом взгляде на код увидел 4 ошибки в коде- 1 Console.WindowWidth = 60 2 Console.WindowHeight = 30 3 дважды объявлен N2 4 нет END IF в 36-й строке и одну критическую в логике - при вычислении к - каждую переменную надо проверять на четность отдельно, без ELSE Добавлено через 12 минут и подобных ляпов вы наплодили во всех своих ответах на свои же вопросы... 1

@Definited 1 / 1 / 0 Регистрация: 10.10.2017 Сообщений: 44
	17.10.2017, 22:55 [ТС]
	Остап Бонд, надо же . Вот это я тормоз. Впихнуть Elseif Добавлено через 1 минуту Остап Бонд, большое спасибо! 0

@Definited 1 / 1 / 0 Регистрация: 10.10.2017 Сообщений: 44
	18.10.2017, 17:46 [ТС]
	Genn55, можно глупый вопрос? Что такое клик по форме? 0