На шахматной доске размещены ладья и шахматная фигура любого типа. координаты двух фигур представлены в виде двух чисел для каждой из них(первое число строка, а второе число столбец). напишите программу, которая определит бьет ли ладья фигуру.

вводные данные: на четырех строках даны числа, первые два числа координаты ладьи, вторые два числа координаты другой фигуры.

выходные данные: сообщение "yes" если бьет, сообщение "no" если нет.

pascal

1) долгая бумага 2) потверждает файл или папку

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.

если массив состоит из 10 элементов то код программы:

const

  n=10;  

var

  a: array[1..n] of integer;

  i,min: integer;  

begin

for i: =1 to n do  read(a[i]);     {вводишь заданный массив}

min: =32767;

for i: =1 to n do

  if a[i]< min then min: =a[i];

write(min);

end;