Бра́узер<span>, или </span>веб-обозреватель<span>— </span>прикладное программное обеспечение<span> для просмотра </span>веб-страниц<span>, содержания </span>веб-документов<span>, </span>компьютерных файлов<span> и их </span>каталогов<span>; управления </span>веб-приложениями<span>; а также для решения других задач.</span>
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.
<em><u>Тестовое решение:</u></em>Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
16 символов - это 2^4 4 бит символ
256 символов - это 2^8 8 бит символ
4*20=80 бит - объем информации при наборе 16 символьным алфавитом
8*20=160 бит - объем информации при наборе 256 симв. алфавитом.
Тем самый в два раза меньше объем у 16 символьного алфавита
Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231