//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
1) По формуле Шеннона 2^i=n найдём i=5 т.е. сообщение о каждом ученике кодируется пятью битами.
Ответ: 5
2) По той же формуле. i=4, значит 2^4=16.
Ответ: 16
3) n=80 - о десяти файлах. Значит, информация об одном - 8бит. 2^8=256 файлов
Ответ: 256
4)2^i=128
i=7
140/7=20
Ответ: 20
5) Всего 4*16=64 возможных исходов. 2^i=64 i=6
Ответ:6
Для защиты от тупого копирования. gcc 4.8.4
<span>Один бит, один символ. </span>
<span>1200 бит/с 1200 символов/с </span>
<span>и т.д. </span>
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('s=').Replace(ReadlnString('t='),''))
end.
<u>Пример:</u>
s= дождик, дождик, перестань!
t= дождик
, , перестань!