Для начала найдем, сколько информации несет каждый символ: мощность алфавита 256, находим количество информации по формуле N = 2i, где N - мощность алфавита, i - количество информации в битах, которое несет каждая буква.
256 = 28, значит каждый символ несет 8 бит информации, или 1 байт.
2. В одной строчке 70 символов, значит, 70 * 1 = 70 байт несет каждая строчка.
3. На одной странице 30 строк, поэтому 30 * 70 = 2100 байт несет каждая страница.
5. Пять страниц текста содержит 2100 * 5 = 10500 байт информации.
ответ: 10500 байт.
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.
алг
нач
цел н,о
нц для н от 4 до 8
нц для о от н*10 до н*10+н-4
вывод о, " "
кц
вывод нс
кц
кон