Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них - VB

Узнай цену своей работы

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

Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них. ВХОДНЫЕ ДАННЫЕ Во входном файле Z_1.in записаны три числа через пробел. Все числа целые, не меньшие -10000 и не большие 10000. ВЫХОДНЫЕ ДАННЫЕ В файл Z_1.out вывести единственное число. ПРИМЕР Z_1.in 4 7 5 -10 -1000 -100 8 8 8 Z_1.out 7 -10 8 Моя проблема в том, что программа выводит только число -10, вместо чисел 7; -10; 8 Помогите решить данную задачу на языке Visual basic 6 КОД ПРОГРАММЫ на языке Visual basic 6:

Решение задачи: «Найти наибольшее из трех чисел. Если числа равны, то вывести любое из них»

textual
Листинг программы
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim max As Integer
Private Sub Command1_Click()
Open "C:\vvod_vyvod\Z_1.in" For Input As #1
Open "C:\vvod_vyvod\Z_1.out" For Output As #2
Do While Not EOF(1)
Input #1, a, b, c
If a > b And a > c Then max = a
If a < b And b > c Then max = b
If a < c And c > b Then max = c
If a = b = c Then max = a
Write #2, max
Loop
Close #1
Close #2
End Sub

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

14   голосов , оценка 3.643 из 5
Похожие ответы