var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
<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 бит.