Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 8. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 8.Возможно ли это написать в Visual Basic? Если да,то как?
Module Module1 Sub Main() Dim n As Integer Console.Write("Введите количество чисел в последовательности: ") n = Convert.ToInt32(Console.ReadLine()) Dim maxNum As Integer = 0 Dim currentNum As Integer For i As Integer = 1 To n Console.Write("Введите число: ") currentNum = Convert.ToInt32(Console.ReadLine()) If currentNum Mod 10 = 8 AndAlso currentNum > maxNum Then maxNum = currentNum End If Next Console.WriteLine("Максимальное число, оканчивающееся на 8: " & maxNum) End Sub End Module
Эта программа запрашивает у пользователя количество чисел в последовательности, затем вводит числа и находит максимальное число, оканчивающееся на 8.
Да, это возможно написать на Visual Basic.
Пример кода:
Module Module1Sub Main()
Dim n As Integer
Console.Write("Введите количество чисел в последовательности: ")
n = Convert.ToInt32(Console.ReadLine())
Dim maxNum As Integer = 0
Dim currentNum As Integer
For i As Integer = 1 To n
Console.Write("Введите число: ")
currentNum = Convert.ToInt32(Console.ReadLine())
If currentNum Mod 10 = 8 AndAlso currentNum > maxNum Then
maxNum = currentNum
End If
Next
Console.WriteLine("Максимальное число, оканчивающееся на 8: " & maxNum)
End Sub
End Module
Эта программа запрашивает у пользователя количество чисел в последовательности, затем вводит числа и находит максимальное число, оканчивающееся на 8.