Var K:array[1..2,1..13] of integer; i,j,ind,x,y:integer; MAX:real; function RAST(x1,x2,y1,y2:integer):real; begin RAST:=sqrt(sqr(x2-x1)+sqr(y2-y1)); end; begin MAX:=-2*sqr(-10-1); randomize; writeln('Исходные точки:'); for j:=1 to 13 do begin writeln('Точка № ',j,', с координатами(X,Y)'); for i:=1 to 2 do begin K[i,j]:=random(110) - 10; write(K[i,j],' '); end; writeln; end; for i:=1 to 13 do if RAST(0,K[1,i],0,K[2,i])>MAX then begin MAX:=RAST(0,K[1,i],0,K[2,i]); x:=K[1,i]; y:=K[2,i]; ind:=i; end; writeln('Номер точки: ',ind,' Координаты: ',x,' ; ',y); end.
Using System; using System.Collections.Generic; using System.Linq;using System.Text; namespace test { class Program { static void Main(string[] args) { double P = double.Parse(Console.ReadLine()); // Длина окружности равна P = 2ПR. Решаем по формуле: double R = P / 3.14 / 2; // Площадь окружности равна S = ПR*R double S = R * R * 3.14; Console.WriteLine("{0} - радиус, {1} - площадь", R, S); } } }
алтын,құмыра, тастар
Объяснение:
ну думаю правильно