11001000001010 в двоичной системе
Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.
Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// 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
Ближе вторая точка
1) Переводим размер в дюймы
2) Раз цветов нет, то один пиксель = 1 биту
3) Находим кол-во пикселей
4) Узнаём плотность
Число странное, но по логике так
<span>4*1024+8*1025-2*1026-140=10104 (но система десятичная)
Переводим:
</span>
10011101111<span>000 (это уже двоичная, осталось только посчитать нули [в данной записи ненужные уже убраны, они, при переводе, стояли перед числом и не влияли на него])
</span>Считаем и получаем: 6