На шахматной доске стоят 3 ферзя. Найдите те пары из них, которые угрожают друг другу

@karalion · Регистрация: 18.10.2017

Author24 — интернет-сервис помощи студентам

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

@кот Бегемот · 18.10.2017, 20:53

Pascal

var
a,x,y:array[1..3] of integer;
i,f:integer;
begin
f:=0;
for i:=1 to 3 do
begin
write('wwedite koordinaty ',i,' ferzya: ');
readln(x[i],y[i]);
end;
if (x[1]=x[2])or(y[1]=y[2])or(abs(x[1]-x[2])=abs(y[1]-y[2])) then
begin
writeln('1 and 2');
f:=1;
end;
if (x[1]=x[3])or(y[1]=y[3])or(abs(x[1]-x[3])=abs(y[1]-y[3])) then
begin
writeln('1 and 3');
f:=1;
end;
if (x[3]=x[2])or(y[3]=y[2])or(abs(x[3]-x[2])=abs(y[3]-y[2])) then
begin
writeln('2 and 3');
f:=1;
end;
if f=0 then writeln('NO');
end.

@karalion 0 / 0 / 0 Регистрация: 18.10.2017 Сообщений: 2
		1
	На шахматной доске стоят 3 ферзя. Найдите те пары из них, которые угрожают друг другу 18.10.2017, 19:12. Показов 4415. Ответов 1 Метки задача, шахматы (Все метки) На шахматной доске стоят 3 ферзя. Найдите те пары из них, которые угрожают друг другу.(Ферзь может ходить по вертикали, горизонтали, диагонали). 0

	18.10.2017, 20:53

На шахматной доске стоят 3 ферзя. Найдите те пары из них, которые угрожают друг другу

Решение