1- Известно, что с бит можно закодировать 2N различных чисел. Т. к. поля независимы, то для каждого нужно своё минимальное число бит.
Для поля с номером года 211 < 2100 < 212, значит, минимальное количество бит для этого поля 12.
Номер месяца: 23 < 12 < 24, значит, для этого поля — 4 бита.
Номер дня: 24 < 30 < 25, значит, этому полю соответствуют 5 бит.
Итого для одной записи нужно: 12 + 4 + 5 = 21 бит
2-Согласно условию, в номере могут быть использованы 10 цифр (0..9) и 26 букв, всего 10 + 26 = 36 символов. Известно, что с бит можно закодировать 2N различных символов. Поскольку 25 < 36 < 26, то для записи каждого из 36 символов необходимо 6 бит.
Для хранения всех 7 символов номера нужно 7 * 6 = 42 бит, а т. к. для записи используется целое число байт, то берём ближайшее не меньшее значение, кратное восьми, это число 48 = 6 * 8 бит (6 байт).
Тогда 40 номеров занимают 6 * 40 = 240 байт.
3 текст скинь
4.
program p3;
uses Robot;
procedure Square2;
begin
right;
paint;
down;
paint;
left;
paint;
up;
paint
end;
var i,j:integer;
begin
Task('p3');
for i := 1 to 6 do
begin
Square2;
if i<=5 then
begin
for j := 1 to 2 do left;
for j := 1 to 2 do up
end
end
end.
5.
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
var i:integer;
begin
Task('p4');
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end.
Объяснение:
Второй вариант 5-го задания с двумя процедурами
program p4;
uses Robot;
procedure Square2;
begin
paint;
right;
paint;
down;
paint;
left;
paint;
up
end;
procedure Square;
var i:integer;
begin
Square2;
for i:= 1 to 2 do right;
Square2;
for i:= 1 to 2 do down;
Square2;
for i:= 1 to 2 do left;
Square2;
for i:= 1 to 2 do up
end;
begin
Task('p4');
Square
end.