//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.
<span>Пример ввода:
</span><span>Очень много мячей
Пример вывода:
15
</span>
Тем что в книге какая-то определённая информация, а в компьютере любая, которую захочешь найти