101012<span> + 111</span>2<span> = 11100</span><span>2
</span>1010102<span> + 1101</span>2<span> = 110111</span><span>2
</span>10102<span> + 1010</span>2<span> = 10100</span><span>2
</span>10102<span> × 11</span>2<span> = 11110</span><span>2
</span>1112<span> × 101</span>2<span> = 100011</span><span>2
</span>10102<span> × 111</span>2<span> = 1000110</span><span>2</span>
З1:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if mas[x] mod 2 = 1 then writeln(mas[x]);
<span>end.
</span>З2:
Program z;
var mas: array [1..10] of integer;
i, x: integer;
begin
for i:=1 to 10 do
readln(mas[i]);
for x:=1 to 10 do
if (mas[x] mod 2 = 0) and (mas[x] > 0) then writeln(mas[x]);
end.
//Pascal ABC.NET Версия 2.2 Сборка 790
var s,s1,s2:string;
begin;
while s<>'.' do
begin;
readln(s);
s1:=s1+s;
end;
s2:=chr(39); //chr(39)='
if (pos('O',s1)<>0) and (pos(s2,s1)<>0) and (pos('k',s1)<>0) then writeln('Yes') else writeln('No');
<span>end.</span>
Var
a : array ['a'..'z'] of integer;
c : char;
begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>
Для кодирования одного из 256 символов требуется log(2)256=8 бит (2^8=256).
8 бит = 1 байт
Количество страниц в сообщении = 9752 / (53*46*1) = 4
Ответ: 4
