М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
HomelessGod1
HomelessGod1
16.04.2022 15:38 •  Информатика

Как использовать чит nuker на сервере и возможно ли это (чит клиент impact)

👇
Открыть все ответы
Ответ:
sofiya13031
sofiya13031
16.04.2022
Const heigth = 10
Const width = 10

Sub Ìàêðîñ1()
    Dim Sum(heigth - 1, width - 1)
    Dim Product(heigth - 1, width - 1)
    
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            Sum(i, j) = i + j
            Product(i, j) = i * j
        Next j
    Next i
    
    Call Show(Sum, 0, 0)
    Call Show(Product, 0, 12)
End Sub

Sub Show(ByRef m, dx, dy)
    For i = 0 To heigth - 1
        For j = 0 To width - 1
            ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
        Next j
    Next i
End Sub
4,6(7 оценок)
Ответ:
nastya652
nastya652
16.04.2022
{1}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for j := 1 to n div 2 do
 for i := 1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[i,n+1-j];
  a[i,n+1-j] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.

{2}

const
 n = 6;
var
 a:array[1..n,1..n] of integer;
 i,j:integer;
 t:integer;

begin
 for i := 1 to n do
 for j := 1 to n do
  read(a[i,j]);
 
 for i := 1 to n do
 for j := i+1 to n do
  begin
  t := a[i,j];
  a[i,j] := a[j,i];
  a[j,i] := t;
  end;
 
 for i := 1 to n do
  begin
  writeln;
  for j := 1 to n do
    write(a[i,j],' ');
  end
end.
4,6(44 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ