75 . lazarus, pascal.допишiть програму обчислення функцiї: y= {sqrt(x), якщо x> 0 {x^2 + 1, якщо x< =0з використанням складеної умови: var beginx: =strtoint(edit1.text); if x> 0 label1.caption: =end;

Начнем с того, что даже если вам каким-то образом удастся получить IP адрес пользователя вк, то это вам ровным счетом ничего не даст. В лучшем случае вы узнаете город, в котором находится этот человек и больше ничего. И это только в том случае, если этот субъект не использовал средства анонимизации. Как мы видим, в большинстве случаев у людей возникают проблемы достаточно серьезного характера: кого то шантажируют, на кого то клевещут, рас ложные сведения и т.д. В большинстве случаев злоумышленник перестраховывается и использует средства анонимизации. Поэтому полученный IP адрес вполне вероятно окажется IP адресом какого-нибудь анонимайзера или впн сервиса.

var

 x1,x2,x3,y1,y2,y3:real;

 a1,a2,a3,b1,b2,b3:real;

 s1,s2:real;

 begin

   write('Введите вершины 1 треуголника - ');

   readln(x1,x2,x3,y1,y2,y3);

   write('Введите вершины 2 треуголника - ');

   readln(a1,a2,a3,b1,b2,b3);

   s1:=abs((x1-x3)*(y2-y3)-(x2-x3)*(y1-y3))/2;

   s2:=abs((a1-a3)*(b2-b3)-(a2-a3)*(b1-b3))/2;

   if s1>s2 then writeln('Треугольник под №1 площадь имеет больше')

   else

   writeln('Треугольник под №2 площадь имеет больше');

   readln

 end.

Со второй задаче разберись сам :3