Страницы 177-181 параграф 4 4 вопрос / задание 4, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

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

program Z_4_4;

var

xa, ya, xb, yb: integer;

d1, d2: real;

begin

write('Введи координаты точек через пробел > ');

readln(xa, ya, xb, yb);

d1 := sqrt(sqr(xa) + sqr(ya));

d2 := sqrt(sqr(xb) + sqr(yb));

if d1 = d2 then writeln('Точки равноудалены')

else if d1 < d2 then writeln('1-я точка ближе')

else writeln('2-я точка ближе');