Помогите пожалуйста срочно. Нужна часть 2 программирование. На языке Паскаль.

1

Ответы и объяснения

2013-03-18T17:22:23+00:00

Program abx;

var x1,x2,y1,y2:integer;

     R1,R2:real;

     result:string;

begin

readln(x1,y1,x2,y2);

r1:=sqrt(sqr(x1)+sqr(y1));

r2:=sqrt(sqr(x2)+sqr(y2));

if r1>r2 then result:='x1 и y1 дальше' else

result:='x2 и y2 дальше';

writeln(result);

end.