// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6
Var N,S: integer;
begin
N:=0;
S:=0;
while s<=47 do
begin
N:=n+1;
S:=s+2;
end;
write(N);
end.
Ответ: 24
На один символ (букву) необходим 1 байт информации или 8 бит.
Для вывода данных в виде таблицы, очень похожую на таблицу в екселе
Pascal abc.
Проверка:
введите двузначное число: 74
результат: 47<span>
</span>