в современном сообществе, интернет очень важен.
Зачем нужен интернет?
Многие уже давно не представляют жизни без интернета - по статистике человек в среднем проводит во всемирной паутине по 5 часов в день. Доступ в интернет действительно может открыть большие возможности, а может и стать причиной серьезной зависимости.
Зачем придумали интернет?
Первый прототип современной глобальной сети появился еще в веке, когда министерству обороны США понадобилась новая и максимально надежная система передачи данных. С тех пор многое изменилось, но суть осталась той же – интернет продолжает служить для обмена информацией, причем здесь можно найти что угодно: от завязать галстук до своей второй половинки, и все это, конечно, не выходя из дома. Вот несколько конкретных примеров того, зачем нужен интернет, для тех, кто еще не освоился в огромном хранилище контента.
Поиск информации на все случаи жизни. Если вы хотите узнать, как приготовить шарлотку, оформить договор купли-продажи, составить бизнес-план и прочее, достаточно просто отправить запрос через поисковую систему.Говоря о том, зачем людям интернет, то первое, что приходит на ум, конечно, для общения и поиска друзей. Социальные сети, чаты и форумы как раз для этого и предназначены.Интернет в обучении и поиске работы. Здесь можно найти практически любую литературу, видео-уроки и руководства, а на сайтах с объявлениями регулярно появляются новые вакансии.Зачем еще мы используем интернет, так это, разумеется, для поисков кино и музыки.Интернет-магазины здорово экономить время, а часто и деньги. В них можно заказать любые товары прямо с доставкой на дом.Осторожно, некачественный контент
Каждый пользователь может размещать во всемирной сети любой контент на своих сайтах, блогах, страничках в социальных сетях, форумах и даже в комментариях, но вовсе не факт, что эта информация будет достоверной. Контролировать все размещения невозможно, поэтому фильтровать полученную информацию нужно самостоятельно, а лучше всего черпать ее из достоверных источников – крупных сайтов и форумов.
Объяснение:
'Сумма цифр в числе n
Dim s As Integer
s = 0
Do While n <> 0
s = s + n Mod 10
n = Int(n / 10)
Loop
ds = s
End Function
Function IsGood(n As Integer) As Boolean
'Сохраняется ли сумма цифр при умножении числа на 2,3,..9 ?
Dim etalon As Integer, k As Integer
etalon = ds(n)
IsGood = True
k = 2
Do While IsGood And k < 10
IsGood = (ds(n * k) = etalon)
k = k + 1
Loop
End Function
Sub aaa()
Dim i As Integer, s As String
s = ""
For i = 10 To 99
If IsGood(i) Then s = s + Str(i)
Next i
MsgBox s
End Sub
Тестовое решение:
18 45 90 99