1) 12(в16с/c) =1*16 +2 = 18 (в 10c/c)
12( в 8с/с) = 1*8+2 =10 (в 10с/с)
10 (в 2 с/с) = 2 ( в 10с/с)
18+10*2 = 38 (в 10с/с)
38(в10с/с) = 46(в 8с/с) = 100 110 (в 2с/с) = 26 (в 16с/с)
2) ошибка в записи 4) , в 7с/с нет цифры 7 ( а есть 0 1 2 3 4 5 6 )
Зрительная зрение глаза
звуковая слух уши
вкусовыя всус язык
обонятельная обоняние нос
осязателная осязание кожа
Var b, c: integer;
begin
Writeln('Введите ваш возраст');
Readln(b);
if b <= 0 then
WriteLn('Вам 0 лет')
else begin
c := b mod 100;
if (c >= 10) and (c <= 20) then WriteLn('Вам ', b, ' лет')
else
case (b mod 10) of
1: WriteLn('Вам ', b, ' год');
2..4: WriteLn('Вам ', b, ' года');
5..9, 0: WriteLn('Вам ', b, ' лет')
end;
end;
Writeln('Для выхода нажмите <Enter>');
Readln;
end<span>.</span>
Для начала найдём мощность алфавита i
выразим i
теперь найдём количество информации I
I = K*i = 1024 * 768 *18 = <span>14155776 бит
переведём биты в наибольшую единицу измерения
</span>14155776 / 8 / 1024 / 1024<span> = </span><span>1,6875 мб.</span>
Program raketa;
uses graph, crt; (возможно эта строчка не понадобится, это зависит от версии ПО)
Begin
line (170,80,190,40);
line (190,40,210,80);
line (210,80,210,160);
line (210,160, 220,170);
line (210,160,200,175);
line (200,175,200,170);
line (200,175,200,205);
line (220,170,220,200);
line (220,200,200,200);
line (200,205,180,205);
line (180,205,180,170);
line (180,170,190,160);
line (190,160,200,170);
line (180,175,170,160);
line (170,160,170,80);
line (180,160,160,170);
line (160,170,160,200);
line (160,200,180,200);
circle (190,80,10);
circle (190,110,10);
circle (190,140,10);
line (170,210,165,220);
line (165,220,175,240);
line (175,240,185,225);
line (180,215,190,240);
line (190,240,200,215);
line (195,225,205,240);
line (205,240,215,220);
line (215,220,210,210);
end.