Составьте программу на Visual Basic
Вводится некоторое трехзначное число x (пусть x=255)
Вывести на экран сколько число 5 в x.(с объяснениями) Спасибо:)
Sub Programma
Dim A As String, n As Integer, i As Integer
A = InputBox ("Vvedite chislo") Вводим число, как строку
n = 0 Счетчик пятерок
For i = 1 To Len(A) Цикл по всем знакам в строке
If Mid$(A, i, 1) = "5" Then n = n + 1 Если знак = 5, прибавляем счетчик
Next i
MsgBox (n) Выводим счетчик на экран
End Sub
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
