Дано трехзначное число, верно ли, что всего его цифры одинаковы - VB

Формулировка задачи:

Здравствуйте. Очень надеюсь на вашу помощь в решении задач, так как я полный ноль в программировании на языке Visual Basic. Все, что я знаю - это задачи на условные операторы и, кажется, на массивы, но в моем классе учатся по самоучителю, а в нем все в кашу. Учитель нам ничего не объясняет, приходится доходить своим умом. В общем, помогите пожалуйста в решении следующих задач: 1. Дано трехзначное число, верно ли, что всего его цифры одинаковы? 2. Дано четырехзначное число, определить, кратно ли произведение его цифр числу а. 3. Даны три целых числа, вывести на экран те из них, которые являются четными. 4. Даны четыре целых числа. Определить сумму тех, которые кратны трем.

Решение задачи: «Дано трехзначное число, верно ли, что всего его цифры одинаковы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim a As String
Dim b As String
Dim Г± As String
Dim d As String
Dim otv As Integer
 
a = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®1")
b = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®2")
c = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®3")
d = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®4")
 
 
If CInt(a) Mod 3 = 0 Then
otv = otv + a
End If
If CInt(b) Mod 3 = 0 Then
otv = otv + b
End If
If CInt(c) Mod 3 = 0 Then
otv = otv + c
End If
If CInt(d) Mod 3 = 0 Then
otv = otv + d
End If
MsgBox (otv)

Оцени полезность:

13 голосов , оценка 3.462 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы