Если панель инструментов "рисование" или "текстовые эффекты" не видна, перейдите в меню по пути вид – панели инструментов для активации панели инструментов. на панели инструментов рисование или текстовые эффекты щёлкните значок галерея текстовых эффектов. значокв диалоговом окне галерея текстовых эффектов выберите стиль текстового эффекта и нажмите кнопку "ок". объект текстового эффекта вставляется в документ. объекты текстовых эффектов являются пользовательскими фигурами. с панели инструментов "параметры трёхмерного изображения" можно в любой момент перейти от двумерного просмотра к трёхмерному и обратно. дважды щёлкните объект, чтобы перейти в режим редактирования текста. замените стандартный текст эффекта своим. чтобы выйти из режима редактирования текста, нажмите клавишу esc.
// begin var L:=new List<fraction>; // вынужденное: метод иногда дает дубликаты (var a0, var an):=(abs(Self.First),abs(Self.Last)); for var p:=1 to a0 do begin if a0 mod p<>0 then continue; for var q:=1 to an do begin if an mod q<>0 then continue; var g:=Self.First; (var f, var t):=(g,p); foreach var k in Self.Skip(1) do begin var r:=k*t; (f,g,t):=(f*q+r,-g*q+r,t*p); end; if f=0 then L.Add((p,q)); if g=0 then L.Add((-p,q)) end end; Result:=L end;
function RedFrac(Self:fraction):fraction; extensionmethod; begin (var p,var q):=Self; var s:=sign(p*q); (p,q):=(abs(p),abs(q)); (var a,var b):=(p,q); while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=(s*p div a,q div a) end;
function Beautify(Self:sequence of fraction):sequence of string; extensionmethod; begin Result:=Self.Select(e->e.RedFrac).Distinct.OrderBy(x->x[0]/x[1]). Select(e->e[0]+(e[1]<>1?'/'+e[1]:'')) end;
begin ReadArrInteger(4).RatFact.Beautify.Println end.
Объяснение:
Нет если удалишь то всё удалится