Составить программу в кумире которая ! 40 50 51 60 61 62 70 71 72 73 80 81 82 83 84 !

алг

нач

цел н,о

нц для н от 4 до 8

нц для о от н*10 до н*10+н-4

вывод о, " "

кц

вывод нс

кц

кон

Для начала найдем, сколько информации несет каждый символ: мощность алфавита 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.