//Автора кода в средневековье бы уничтожила инквизиция
//Pascal ABC.NET v3.1 сборка 1219
Program Stroka;
var S,S1 : string ;
p,k : integer ;
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do
begin
S1 := copy(s,1,P);
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
inc(k);
end;
S[1]:= upcase(S[1]);
writeln(s);
writeln('Count of words=',k+1);
end.
Пример ввода:
Simple some test text
Пример вывода:
Simple
some
test
Text
Count of words=4
Ответ:
Для задач с условием. Проверяется истинность данного условия.
Если мощность алфавита N=256 символов, значит один символ "весит" i=8 бит=1 байт, т.к.N=2^i
Информационный объем текста=количество символов в тексте*"вес" символа ( I=K*i). Отсюда: K=I/i=1.5Кбайта/1байт=1.5*1024=1536 символов
<span>Жители 1 планеты используют алфавит из 256 знаком, 256=2^8; на 1 знак - 8 бит.
жители 2 планеты используют из 128 знаков. 128=2:7; на 1 знак - 7 бит.
Для жителей какой планеты сообщение из 10 знаков<span> несет больше информации 10*8 бит = 80 бит, 10* 7 бит=70 бит, </span></span>д<span><span>ля жителей первой планеты сообщение из 10 знаков<span> несет больше информации</span></span>
и на сколько?</span> 80 бит - 70 бит = 10 бит.