<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(12,0,40); a.Println;
a.Where(t->t.IsEven).Println
end.
<u>Пример</u>
19 22 12 20 39 31 23 9 32 7 2 10
22 12 20 32 2 10
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
Для кодирования одного из 17 символов требуется log(2)17 ≈ 5 бит.
Объем информации в письме племени Мульти = 100*5 = 500 бит.
Для кодирования одного из 32 символов требуется log(2)32 = 5 бит.
Объем информации в письме племени Мульти = 50*5 = 250 бит.
Ответ: 500 бит > 250 бит
var
t : string;
begin
writeln('Введите текст:');
readln(t);
t := Regex.Replace(t, '.', '.$0');
writeln(t);
end.