Найти сколько раз первоначальное число встречается среди набираемых

@nastyakisa · Регистрация: 26.12.2011

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

Помогите мне пожалуйста! Очень на вас рассчитываю!
Мне нужно написать программу, которая будет делать следующее:
Ввести одно число и запомнить его. Дальше вводиться 10 чисел. Программа должна найти сколько раз первоначальное число встречается среди набираемых и номер первого. Например, ввели первое число 5, далее вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза, первый раз номер 2"

@Sasha_Smirnov · 22.03.2012, 01:55

Как я понял, ваши числа — это только цифры (от 0 до 9)? Т. е. нет чисел многозначных и пр.?

Dragokas · 22.03.2012, 03:13

Страшный алгоритм (никому не смотреть)

Visual Basic

Sub test()
Dim c As String, st As String, MAS
c = InputBox("Введите образец", , 4)
Do
  st = InputBox("Введите 10 чисел через пробел", , "1 4 3 4 4 4 5 4 4 100")
  MAS = Split(st, " ")
Loop Until UBound(MAS) = 9
MsgBox "Число " & c & " встречается " & _
    10 - UBound(Split(Replace(" " & st, " " & c, ""), " ")) & _
    " раз(а), первый раз номер " & Application.Match(c, MAS, 0) & "."
End Sub

@nastyakisa 1 / 1 / 0 Регистрация: 26.12.2011 Сообщений: 8
		1
	Найти сколько раз первоначальное число встречается среди набираемых 22.03.2012, 01:32. Показов 1217. Ответов 2 Метки нет (Все метки) Помогите мне пожалуйста! Очень на вас рассчитываю! Мне нужно написать программу, которая будет делать следующее: Ввести одно число и запомнить его. Дальше вводиться 10 чисел. Программа должна найти сколько раз первоначальное число встречается среди набираемых и номер первого. Например, ввели первое число 5, далее вводим 7 5 1 7 2 4 5 5 6 0. Программа должна выдать "Число 5 встречается 3 раза, первый раз номер 2" 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	22.03.2012, 01:55	2
	Как я понял, ваши числа — это только цифры (от 0 до 9)? Т. е. нет чисел многозначных и пр.? 0

	22.03.2012, 03:13