Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида p /q (где р — целое число, q — натуральное число вариант 1 в раздел реализации включить подпрограмму вычисления наибольшего общего делителя и на ее основе подпрограмму сокращения дробей. написать в паскале

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

unit ASM;

interface

  type SF=(integer,integer);
  function AddSF(a,b:SF):SF;
  function SubSF(a,b:SF):SF;
  function MultSF(a,b:SF):SF;
  function DivSF(a,b:SF):SF;
 
implementation
 
  function Gcd(p:SF):integer;
  begin
    (var a,var b):=p;
    a:=abs(a); b:=abs(b);
    while b>0 do (a,b):=(b,a mod b);
    Result:=a
  end;
 
  function ReductSF(p:SF):SF;
  begin
    var t:=Gcd(p);
    if t>1 then Result:=(p[0] div t,p[1] div t)
    else Result:=p
  end;
 
  function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
 
  function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));

  function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
    
  function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
 
end.

Пример работы с модулем

uses ASM;

begin
  var a:=(5,24);
  var b:=(7,8);
  var c:=AddSF(a,b);
  Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.

Результат

5/24+7/8=13/12

using System;

class Program

{

static void Main()

{

bool flag;

Console.Write("A: ");

int A = int.Parse(Console.ReadLine());

Console.Write("B: ");

int B = int.Parse(Console.ReadLine());

Console.Write("C: ");

int C = int.Parse(Console.ReadLine());

if (((B > A) && (B < C)) || ((B > C) && (B < A)))

flag = true;

else

flag = false;

if (flag)

Console.WriteLine("Існита! Число В знаходиться між числами А та С!");

else

Console.WriteLine("Хибність! Число В знаходиться між числами А та С ");

Console.ReadLine();

}

}

Microsoft Word многим обязан Braxo — текстовому редактору с оригинальным графическим интерфейсом, разработанному в исследовательском центре «Xerox P.iRC». Создатель Braxo Чарльз Симони

Щ X I ЧАЛЛЛА^ЧЛААЛЛЛАЛ

(Charles Simonyi) покинул P.iRC в 1981 году. Тем же летом Симони переманил Броди, с которым вместе работал над Braxo.

Первый выпуск Word для MS-DOS состоялся в конце 1983 года. Он был плохо принят рынком, продажи снижаю наличие конкурирующего продукта — WordPerfect.

Однако версия для «макинтоша», выпущенная в 1985 году, полу чила широкое распространение. Через два года « Word 3.01 для Macintosh» усилил позиции (версия 3.0 изобиловала ошибками и быстро была заменена). Как и прочее программное обеспечение для «макинтоша», Word был полностью WY.SIJTYG-редактором (принцип «ПЪаг You See Is What You Get» — «полу чаешь то, что видишь»).

Хотя MS-DOS и являлась текстовой операционной системой, лишённой графической оболочки, Word для DOS был первым текстовым процессором для IBM PC, который был отображать разметку текста, например, полужирный или курсивный текст в процессе

i А * ✓ I / 4 VV4^4^4^HS^vA *

редактирования. Однако он всё же не являлся в полном смысле JITSIUYG-редактором. Другие же текстовые процессоры, такие как WordStar и WordPerfect, использовали простой текстовый экран с кодами разметки, иногда текст был цветным.

можешь не благодарить