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

Требуется определить, бьет ли КОНЬ, стоящий на клетке с указанными
координатами (номер строки и номер столбца), фигуру, стоящую на другой
указанной клетке.

Вводятся четыре числа: координаты КОНЯ (два числа) и координаты другой
фигуры (два числа). Координаты вводятся парами, каждая пара в отдельной
строке. Координаты - целые числа в интервале от 1 до 8.

Требуется вывести слово YES, если КОНЬ сможет побить фигуру за 1 ход
и NO - в противном случае.

Примеры:
1) входные данные
1 1
3 3
выходные данные
NO

2) входные данные
1 1
3 2
выходные данные
YES

3) входные данные
1 1
1 4
выходные данные
NO

Замечание 1: КОНЬ ходит русской буквой «Г» (или латинской «L»).
Замечание 2: как вводить 2 значения в одной строке через Пробел НА ПИТО

👇
Открыть все ответы
Ответ:
etomalo
etomalo
02.11.2021
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var n:=5;
  var z:=MatrixRandom(n,n,10,99);
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(z[i,j]);
    Writeln
    end;
  var imin:=0;
  var jmin:=n-1;
  for var i:=1 to n-1 do
    if z[i,n-i-1]<z[imin,jmin] then begin
      imin:=i; jmin:=n-i-1
      end;
  Writeln('Zmin=Z[',imin+1,',',jmin+1,']=',z[imin,jmin])
end.

Тестовое решение:
26 62 62 90 76
21 67 69 43 37
18 19 35 88 91
60 91 87 46 27
49 71 16 77 81
Zmin=Z[3,3]=35

Замечание:
В массиве элементы нумеруются от 0 до 4, а при выводе номера индексов указаны для нумерации от 1 до 5 (так привычнее смотрится).
4,6(30 оценок)
Ответ:
KATIAqwerty
KATIAqwerty
02.11.2021
Const
K = 13;
Var
A:array[1..K] of integer;
i,Mx,Mn:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Mx:=A[K];
Mn:=A[K];
For i:= 1 to K-1 do
    Begin
    if A[i]>Mx then Mx:=A[i];
    if A[i]<Mn then Mn:=A[i];
    End;
A[1]:=Mn;
A[K]:=Mx;
Write('Обработаный массив: ');
For i:= 1 to K do
    Write(A[i],' ')
End.

Const
K = 13;
Var
A,B,C:array[1..K] of integer;
i:integer;
Begin
Write('Первый массив: ');
For i:= 1 to K do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    End;
WriteLn;
Write('Второй массив: ');
For i:= 1 to K do
    Begin
    B[i]:=random(21)-10;
    Write(B[i],' ');
    End;
WriteLn;
Write('Третий массив: ');
For i:= 1 to K do
    Begin
    C[i]:=A[i]+B[i];
    Write(C[i],' ')
    End;
End.
4,7(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ