<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s:=ReadlnString;
s:=s.RegexReplace('[AaBb]','c');
s.Println
end.
<h3>Пример</h3>
A quick movement of the enemy will jeopardize six gunboats.
c quick movement of the enemy will jeopcrdize six guncocts.
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (ke,ko):=(0,0);
loop 5 do
if ReadInteger.IsOdd then Inc(ko)
else Inc(ke);
Writeln('Четных ',ke,', нечетных ',ko)
end.
Называются графическими<span>редакторами.</span>
Program fordimon;
var n,k,i,j:integer;
s:array[1..10] of integer;
begin
assign(input,'task2.txt');
reset(input);
readln(n,k);
close(input);
assign(output,'task2.out');
rewrite(output);
for i:=1 to n doif i<=k then s[i]:=1
else s[i]:=0;for i:=2 to n do
begin
j:=i-1;
while (j>0) and (j>=i-k) do
begin
s[i]:=s[i]+s[j];
j:=j-1endend;
write(s[n]);
close(output)
<span>end.</span>
№2
значит чтобы закодировать 1 сивол нужно 7 бит
всего у нас 30 сиволов значит оно несет 7 * 30 = 210 бит информации
№3
значит чтобы закодировать 1 сивол нужно 8 бит или 1 байт
всего у нас 5 * 30 * 70 = 10500 сиволов значит они содержат 8 * 10500 = 84000 бит = 10500 байт информации
№5
значит чтобы закодировать 1 сивол нужно 5 бит
всего в слове "информативность" 14 сиволов значит оно несет 5 * 14 = 70 бит информации
№6
значит чтобы закодировать 1 сивол нужно 5 бит
всего у нас 10 сиволов значит оно несет 5 * 10 = 50 бит информации
№7
значит чтобы закодировать 1 сивол нужно 6 бит
всего у нас 20 сиволов значит оно несет 6 * 20 = 120 бит информации
