Определить, какая из трех точек с координатами а(x1, y1), b(x2, y2), c(x3, y3) лежит ближе к началу координат и вывести на экран ее номер

Var {вводим точки, записываем в переменную max расстояние до первой точки, а в переменную max2 - номер точки. если расстояние до следующей точки меньше, чем до первой точки, то сохраняем новые значения в max и  max2} x1,y1,x2,y2,x3,y3,max,max2: real;       begin           readln(x1,y1,x2,y2,x3,y3);                     max: =sqrt(sqr(x1)+sqr(y1));                     max2: =1;                       if sqrt(sqr(x2)+sqr(y2))< =max then                          begin                                max: =sqrt(sqr(x2)+sqr(y2));                               max2: =2;                           end;                       if sqrt(sqr(x3)+sqr(y3))< =max then                          begin                              max: =sqrt(sqr(x3)+sqr(y3));                               max2: =3;                           end;       writeln(max,' ',max2);       end.

1) from random import random n = 10 a = [] for i in range(n):     b = int(random() * 50)     a.append(b) print(a) min = 101 for i in range(n-1):       s = a[i]+a[i+1]       if (s < min) and (s % 2 == 1):           min=s print(min) пример: [41, 35, 16, 7, 29, 9, 16, 28, 10, 6] 23 2) from random import random n = 10 a = [] for i in range(n):     b = int(random() * 50)-25     a.append(b) print(a) k = 0 for i in range(n-1):       p = a[i]*a[i+1]       s = a[i]+a[i+1]       if (p % 2 ! = 0) and (s > 0):           k = k+1 print(k) пример: [11, 23, 12, -16, 21, 15, -11, -10, 10, 17] 3

не знаю паскаль, знаю c++ : )

{ 

int a, b;

//вводим значения в a и в b (в футах)

cin > > a > > b;

b = b*45;

if (a> b) cout < < "в км больше";

else cout > > "в футах больше";  

} 

 

{ 

// тут важен дробный тип 

dooble a, b;

//вводим значения в a и в b (м/c)

cin > > a > > b;

a = a: 3.6;

if (a> b) cout < < "в км/ч больше";

else cout > > "в м/с больше";  

}

 

ну а дальше надо уже все по формулам смотреть. 

{

doouble a,b;  

//вводим значения в a и в b стороны

cin > > a > > b;

a=a*a*3.14;

b=b*b;

if(a> b) cout < < "площадь круга больше";

else cout < < "площадь квадрата больше";  

} 

 

4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.

 

5.

{

  doouble a,b,c,d;

  cin > > a > > b > > c > > d; // вводим объем и массу;

  a = a/b;

c = c/d;

if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";

else cout < < "тело 2 имеет большую плотность";  

} 

 

6. не знаю. но тоже как-то через форумулы.