Можно использовать формулу:
<span>=ЕСЛИ(ЕСЛИ(ЕЧЁТН(A1);1;0)+ЕСЛИ(ЕЧЁТН(B1);1;0)+ЕСЛИ(ЕЧЁТН(C1);1;0)=1;ИСТИНА;ЛОЖЬ)</span>
Что бы наверняка охватить все возможные символы, пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.
Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.
Таким образом получим емкость страницы:
(кол-во строк на стринце)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;
Далее делим.
360 Кбайт: 360*1024 / E
1.44 Мбайт: 1.44 * 1024^2 / E
420 Мбайт: 420 * 1024^2 / E
6,4 Гбайт: 6.4 * 1024^3 / E
<u>Только для версии PascalABC.Net 3.2</u>
Коротко и эффектно!
begin
Writeln('Количество слов равно ',ReadlnString('Вводите:').ToWords.Count)
end.
Пример
Вводите: Карл у Клары украл кораллы.
Количество слов равно 5
<u>VBA MS Excel 2003</u>
Sub aaa()
a = Split(InputBox("Вводите строку"), " ")
k = 0
For Each e In a
If e <> "" Then k = k + 1
Next
MsgBox "Количество слов равно" + Str(k)
End Sub
Ответ:
1110101₂ = 117₁₀
213₈ = 139₁₀
4AF₁₆ = 1199₁₀
95₁₀ = 1011111₂
95₁₀ = 137₈
95₁₀ = 5F₁₆
Объяснение:
1110101₂ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ = 117₁₀
213₈ = 3*8⁰ + 1*8¹ + 2*8² = 139₁₀
4AF₁₆ = 15*16⁰ + 10*16¹ + 4*16² = 1199₁₀
95₁₀ = 1*2⁰ + 1*2¹ + 1*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ = 1011111₂
95₁₀ = 7*8⁰ + 3*8¹ + 1*8² = 137₈
95₁₀ = 15*16⁰ + 5*16¹ = 5F₁₆
