Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Program tocka;
var a,b,c:real;
begin
writeln(введите две точки);
readln(a,b);
if (abs(a)writeln(ближе точка , a);
if (abs(a)>abs(b)) then
writeln(ближе точка , b);
if (abs(a)=abs(b)) then
writeln(они равноудалены );
end.