Қазақ тіліндегі берілгені:Қазақ тіліндегі берілгені:
Сізге 44 бүтін l1l1, r1r1 және l2l2, r2r2 сандары берілген (l1≤r1(l1≤r1, l2≤r2)l2≤r2). Сізге l1≤x1≤r1l1≤x1≤r1, l2≤x2≤r2l2≤x2≤r2 және x1≠x2x1≠x2 шарттары орындалатындай x1x1 және x2x2 бүтін сандарын таңдау керек.



Условие на русском языке:Условие на русском языке:
Вам дается 44 числа l1l1, r1r1 и l2l2, r2r2 (l1≤r1(l1≤r1, l2≤r2)l2≤r2). Вам нужно найти два целых числа x1x1 и x2x2, что l1≤x1≤r1l1≤x1≤r1, l2≤x2≤r2l2≤x2≤r2 и x1≠x2x1≠x2.

Входные данные
Бірінші жолда 44 натурал сан – l1l1, r1r1, l2l2, r2r2 (1≤l1≤r1≤109(1≤l1≤r1≤109, 1≤l2≤r2≤109)1≤l2≤r2≤109) берілген.



Задано 44 натуральных числа l1l1, r1r1, l2l2, r2r2 (1≤l1≤r1≤109(1≤l1≤r1≤109, 1≤l2≤r2≤109)1≤l2≤r2≤109).

Выходные данные
Егер жауабы бар болса, x1x1 және x2x2 сандарын шығарыңыз. Әйтпесе, −1−1 шығарыңыз. Егер бірнеше жауабы бар болса, кез келгенін шығарыңыз.



Если ответ существует, то выведите x1x1 и x2x2. Иначе выведите −1−1. Если существует несколько ответов, то выведите любой.

​

Using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;
namespace ConsoleApp1{    class Program    {        static void Main(string[] args)        {            int b = Convert.ToInt32(Console.ReadLine());            Console.WriteLine("Квадраты от 10 до"+ b);            for (int i = 10;i<=b;i++)            {                Console.WriteLine(i*i);            }            int a = Convert.ToInt32(Console.ReadLine());            Console.WriteLine("Кубы от"+ a +"до 50");            for (int i = a; i <= 50; i++)            {                Console.WriteLine(i * i * i);            }            Console.WriteLine("Целые числа от "+(a<b?a:b)+"до"+ (a < b ? b : a));            if (a<b)                     {                for (int i = a; i <= b; i++)                {                    Console.WriteLine(i);                }            }            else            {                for (int i = b; i <= a; i++)                {                    Console.WriteLine(i);                }            }            Console.ReadKey();        }    }}

{
процедуру с параметрами, обеспечивающую перестановку двух заданных строк матрицы
написан на PascalABC.NET
но должно работать в TurboPascal
}

PROGRAM A5;
const
    rows = 5;
    cols = 8;
   
type
    matrix = array [1..rows,1..cols] of integer;
 
var
    AR : matrix;// рабочая матрица
    i,j:byte;// счетчики
    k1,k2:byte;// номера строк

// обмен строк матрицы местами
procedure SwapRows(row1:byte; row2:byte; var m:matrix);
var i,j:byte;
    ax:integer;
begin
  for i:=1 to cols do begin
    ax := m[row1,i];
    m[row1,i] := m[row2,i];
    m[row2,i] := ax;
  end;
end;

// выравнивание по правому краю - пробелы перед числом
function trailSpace(num:byte; len:byte):string;
var   s:string;
      i:byte;
begin
  s := ''+num;
  i := s.Length;
  while (i<len) do begin
    s := ' ' + s;
    i := i+1;
  end;
  trailSpace := s;
end;

// вывод матрицы на экран
procedure displayMatrix(var m:matrix);
var i,j:byte;
begin
  for i:=1 to rows do begin
    write('Строка ', i, ': ');
    for j:=1 to cols do begin
      write();
      write(trailSpace(AR[i,j], 4) );
    end;
    writeln(' ');
  end;
end;

BEGIN
  // заполнение массива и вывод его на экран
  randomize();
  for i:=1 to rows do
    for j:=1 to cols do
      AR[i,j] := random(256);
  writeln('Начальный массив');
  displayMatrix(AR);
 
  // ввод данных
  writeln(' ');
  write('введите номер строк которые следует поменять местами: ');
  readln(k1, k2);

  if (k1<=rows) and (k2<=rows) then begin
    SwapRows(k1, k2, AR);
    writeln('Результат');
    displayMatrix(AR);
  end else
    writeln('Номера строк должны быть меньше ', rows);
END.