Question

Срочно. Помогите пожалуйста.
Язык любой.

Answer 1

program peresechenie_otrezkoff;

uses crt;

var

a1,b1,a2,b2:integer;

begin

read(a1,b1,a2,b2);

if((a1<a2)and(b1<a2))or((a2<a1)and(b2<a1)) then

write('Пустое множество')

else

if((a1<a2)and(b1=a2)) then

write('Одна точка - ',b1)

else

if((a2<a1)and(b2=a1)) then

write('Одна точка - ',b2)

else

if((a1<a2)and(b1<b2)) then

write('Отрезок [',a2,',',b1,']')

else

if((a2<a1)and(b2<b1)) then

write('Отрезок [',a1,',',b2,']')

else

if((a1<a2)and(b2<b1)) then

write('Отрезок [',a2,',',b2,']')

else

if((a2<a1)and(b1<b2)) then

write('Отрезок [',a1,',',b1,']');

readln;

end.