Напишите составное условие на pascal для определения принадлежности точки с координатами (x,y) фрагментам - id867766820220126 от wewewewwe 26.01.2022 16:06

Question

Информатика: Напишите составное условие на pascal для определения принадлежности точки с координатами (x,y) фрагментам круга с радиусом r и центром в начале координат, находящимся в i и iii четвертям декартовой системы координат (оси системы координат и точки окружности не учитывать). в ответах пробелы не использовать.

wewewewwe · Accepted Answer

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016 // Внимание! Если программа не работает, обновите версию! function NOK(a,b:integer):integer; begin   if a=b then Result:=a   else begin     var c:=a*b;     repeat       if a b then a:=a-b else b:=b-a;        until a=b;     Result:=c div a   end end; begin   var n:=ReadInteger( N= );   var L:=new List integer ;   var m:=n;   while m 0 do begin     var d:=m mod 10;     L.Add(d);     m:=m div 10     end;   var a:=L.Where(x- x 0).Distinct.ToArray;   var...

MOGZ ответил