Ответ:
не понятно ничего..........
26 букв и 10 цифр составляют алфавит мощностью 36 знаков. Если кодировать их числами от 0 до 35, а 2⁵ < 35 < 2⁶, то для одного знака потребуется до 6 бит. По условию "Каждый символ кодируется <u>одинаковым</u> и минимально возможным количеством бит", поэтому принимаем размер 6 бит. Длина номера 7 символов и суммарно они займут 7×6 = 42 бита. Но по условию номер должен занимать целое число байт. В байте 8 бит, тогда для номера нужно отвести 42/8 = 6 байт с округлением до целых в большую сторону. 20 номеров потребуют для хранения 6×20 = 120 байт.
<u><em>Ответ:</em></u> 120 байт
Program saidim;
uses crt;
var
m:integer;
begin
writeln('******************************');
writeln('** Переводилка возраста **');
writeln('******************************');
writeln();
writeln('Введите возраст в месяцах');
readln(m);
writeln('*** alphaues is thinking... ***');
writeln();
// writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
write('Возраст равен ',m div 12);
case ((m div 12) mod 10) of
1: write(' год ');
2,3,4: write(' годa ');
else write(' лет ');
end;
case (m mod 12) of
0: writeln(' ровно ');
1: writeln(m mod 12,' месяц ');
2,3,4: writeln(m mod 12,' месяцa ');
else writeln(m mod 12,' месяцев ');
end;
end.
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
R1 = input("R1 = ")
R2 = input("R2 = ")
R3 = input("R3 = ")
if ((R1 > R2) and (R1 > R3)):
print("1 круг больше всех")
elif ((R2 > R3) and (R2 > R1)):
print("2 круг больше всех")
elif ((R3 > R2) and (R3 > R1)):
print("3 круг больше всех")