Племя пульти пользуется 32-символьным алфавитом. свод основных законов племени хранится на 512 глиняных таблич- ках, на каждую из которых нанесено ровно 256 символов. какое количество информации содержится на каждом носителе? какое количество информации заключено во всем своде aаконов?
использовать Чертежник
алг
нач
сместиться в точку (2,4)
б
а
о
б
а
б
кон
алг б
нач
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (0,-4)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (3,-2)
кон
алг а
нач
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (2,2)
сместиться на вектор (0,-4)
сместиться на вектор (0,1)
сместиться на вектор (-2,0)
поднять перо
сместиться на вектор (5,3)
кон
алг о
нач
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (0,-4)
сместиться на вектор (2,0)
сместиться на вектор (0,4)
поднять перо
сместиться на вектор (3,0)
кон
Объяснение:
картинка
program z1;
var a:array [1..21] of integer;
i,m: integer;
begin;
write('0.');
for i:=1 to 21 do
begin
a[i]:=random(66)-13;
write(a[i]:5)
end;
writeln;
write('1.');
for i:=1 to 21 do
begin
if i mod 2 = 0 then a[i]:=-3*a[i];
write(a[i]:5)
end;
writeln;
write('2.');
for i:=1 to 21 do
begin
if a[i] < 10 then a[i]:=-a[i];
write(a[i]:5)
end;
writeln;
write('3.');
for i:=1 to 21 do
begin
if abs(a[i]) > 40 then a[i]:=a[i]-15;
write(a[i]:5)
end;
writeln;
m:=1;
for i:=1 to 21 do if a[m] < a[i] then m:=i;
a[m]:=m*m;
write('4.');
for i:=1 to 21 do write(a[i]:5)
end.
Объяснение:
После каждого преобразования выводится получившийся массив