Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими). вывести строку, содержащую эти же слова, разделенные одним пробелом

Var   i: integer;   s,t: string;   f: boolean; begin writeln ('введите строку'); readln(s); f: =false; for i: =1 to length(s) do   begin   if (f=false) or (s[i]< > ' ') then     begin     t: =t+s[i];     if s[i]=' ' then       f: =true       else f: =false;     end;   end; writeln(t); end.

1 бит на 1 символ, поэтому:

14400*10=144000 символов 

336600*10=3366000 символов 

Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;   сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;   т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. байт состоит из 8 бит.  8 / 4 = 2 (количество битов чтобы закодировать каждый символ)  двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов