Question

Составить программу на языке паскаль:
Две точки задаются своими координатами. Определите, какая из них находится дальше от:
начала координат;
окружности заданного радиуса с центром в начале координат.

Answer 1

program gt;
var x1,y1,x2,y2,r:real;
begin
readln(x1,y1,x2,y2);
readln(r);
if((sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)))then writeln('Pervaya')else
writeln('2-raya');
if(abs(sqrt(sqr(x1)+sqr(y1))-r)<abs(sqrt(sqr(x2)+sqr(y2))-r))
then writeln('Pervaya-ornositelno okru') else writeln('2-raya otnositelno okru');
end.

Answer 2

then writeln('Pervaya-otnositelno okru') else writeln('2-raya otnositelno okru'); ошибку в этой строке выдает

Answer 3

сейчас исправлю

Answer 4

проверь

Answer 5

заработала) спасибо большое:)

Answer 6

ок