Определить, какая из точек находится ближе к началу координат

@MafiyoZ · Регистрация: 24.11.2009

Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из них находится ближе к началу координат.

@Vladiator · 12.01.2010, 15:11

Pascal

var
 x1,x2,y1,y2:integer;
begin
 readln(x1,y1, x2,y2);
 if sqrt(sqr(y1)+sqr(x1)) < sqrt(sqr(y2)+sqr(x2)) then write('1-я') else write('2-я');
 readln;
end.

@MafiyoZ 0 / 0 / 0 Регистрация: 24.11.2009 Сообщений: 40
		1
	Определить, какая из точек находится ближе к началу координат 12.01.2010, 15:02. Просмотров 3244. Ответов 1 Метки нет (Все метки) Написать программу, которая по заданным координатам двух точек на плоскости определяет, какая из них находится ближе к началу координат. 0

Опции темы

Определить, какая из точек находится ближе к началу координат

Решение