Сор за раздел «Представление информации» Задания: 1. Посчитать количество информации в байтах в следующем высказывании«Скоро Новый год, осталось до встречи тридцать пять дней!», считаем кавычки, но несчитаем пробелы.У меня соррр​

826178 827557

865748 867498

280514 283175

199991 200002

304502 306027

Объяснение:

Задачка интересная смог решить только методом перебора

(Закономерностей не выявил)

состряпал функцию для Excel

Function Sleft(s As Variant) 'для левых счастливых чисел

For i = 1 To s

   s = s - i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

Sleft = s

End Function

Function SRight(s As Variant) 'для правых счастливых чисел

For i = 1 To s

   s = s + i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

SRight = s

End Function