<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
1. 4 минуты = 240 секунд.
Узнаем размер передаваемого файла:
25750 × 240 = 6180000
Узнаем количество страниц:
6180000 ÷ (16 × 1250) = 309
Ответ: 309
2. x - время передачи
180 секунд = 3 минуты
Ответ: 3 минуты (не знаю, почему такой вариант ответа не предложен).
3. Используем формулы на мощность алфавита:
Где i - вес символа, а N - мощность алфавита (количество букв в нём).
Нужно взять минимально возможное целое i, чтобы выражение было равно или больше мощности алфавита.
Узнаем информационный вес одного символа в алфавите:
2⁵ = 32, значит один символ весит 5 бит.
5 × 280 = 1400 бит = 175 байт.
Ответ: 175 байт.
Стереть наверно!
Если нет то что то другая кнопка.
А) имя массива "а"
Б) в нем 6 элементов
В) тип элементов массива - целые числа (Integer)
Г) данные в массив введены в виде констант (Const)
Д) третья строка программы, после знака "=": (1, 7, 3, 6, 0, 10)
Е) программа подсчитывает сумму элементов массива, делит эту сумму на 6 и результат выводит на экран