если по логике то должно получится 2064, а это 2 килобайта 16 байт = 2,16 килобайт.
<u>Вспомогательный алгоритм:</u>
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
<span>кон
<u>Основной алгоритм:</u>
</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(4,-3)
кц
<span>кон</span>
всего 86.
8 не любят, значит любят 78.
54 - квесты, 78-54=24.
62 - симуляторы, 78-62=16.
78-(24+16)=38 с одинаковым удовольствием играют и в квесты, и в симуляторы
На входе кол-во строк и столбцов. Массив заполняем вручную.
var a:array [,] of integer;
b,k,i,j,N,M:integer;
BEGIN
read(N,M);
b:=maxint;
a:=new integer[N,M+1];
for i:=0 to N-1 do begin
for j:=0 to M-1 do begin
read(a[i,j]);
if a[i,j]<=b then begin
b:=a[i,j];
k:=j;
end;
end;
end;
for i:=N-1 downto 0 do
for j:=M downto k+2 do
swap(a[i,j],a[i,j-1]);
for i:=0 to N-1 do begin
for j:=0 to M do
write(a[i,j],' ');
writeln();
end;
end.
