Впрограмме lazarus(язык turbo delphi дано четырехзначное число. определить входит ли в него цифры 2 или 7. , исправьте ошибку или решите заново) program project1; var x: integer; begin read(x); if (x < 1000) or (x > 9999) then begin writeln('need 4 digits'); exit end; while (x < > 0) do begin if (x mod 10 ) = 2 or (x div 10 mod 10) = 2 or (x div 100) = 2 or (x div 1000) = 2 or (x mod 10 ) = 7 or (x div 10 mod 10) = 7 or (x div 100) = 7 or (x div 1000) = 7 then writeln('yes') else writeln('no'); end; end.

Program project1;

var
    X: integer;

begin
    read(X);
    if (X < 1000) or (X > 9999) then
    begin
        writeln('need 4 digits');
        exit;
    end;
   
    while (X > 0) do
    begin
        if (X mod 10 = 2) or (X mod 10 = 7) then begin
            writeln('yes');
            exit;
        end;
        x := x div 10;
    end;
   
    writeln('no');
end.

Программа:
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
     print("Фигура может сделать ход")
else:
     print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
        or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь

Алгоритм сортировки строки массива по возрастанию методом прямого выбора может быть представлен так:
1. Просматривая строку массива от первого элемента, найти минимальный элемент и поместить его на место первого элемента, а первый — на место минимального.
2. Просматривая строку массива от второго элемента, найти минимальный элемент и поместить его на место второго элемента, а второй — на место минимального.
3. И так далее до предпоследнего элемента.

Решение:

//Pascal
const
  n = 7;

var
  a: array[1..n, 1..n] of integer;
  i, j, min, ind: integer;

//Заполнение массива сл. числами и вывод на экран
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(100);
      write(a[i, j]:4);
    end;
    writeln;
  end;
 
  //Сортировка строки матрицы прямым выбором
 
  for i := 1 to n - 1 do
  begin
    min := a[4, i];
    ind := i;
    for j := i + 1 to n do
      if a[4, j] < min then
      begin
        min := a[4, j];
        ind := j;
      end;
    a[4, ind] := a[4, i];
    a[4, i] := min;
  end;
  writeln;
 
    //вывод отсортированной строки
  for j := 1 to n do
  begin
    write(a[4, j]:4);
  end;
end.