Даны две дроби a/b и c/d (a, b,c, d - натуральные числа). составить программу деления дроби на дробь. ответ должен быть несократимой дробью. использовать подпрограмму алгоритма евклида для определения нод

Var  a, b, c, d, num, denom, divis: integer;     function  gcd(a, b: integer): integer; var temp: integer; begin   while b > 0 do   begin     temp : = b;     b : = a mod b;     a : = temp   end;   gcd : = a; end; begin   writeln('введите числа a, b, c, d: ');   read(a, b, c, d);   num : = a * d;   denom : = b * c;   divis : = gcd(num, denom);   writeln(num div divis, '/', denom div divis); end.

Function nod(x,y: integer): integer; begin while (x< > 0)and(y< > 0) do   if x> y then x: =x mod y else y: =y mod x; nod: =x+y; end; var a,b,c,d,n,z1,z2: integer; begin writeln('1-я дробь (числитель и знаменатель): '); readln(a,b); writeln('2-я дробь (числитель и знаменатель): '); readln(c,d); n: =nod(a*d,b*c); z1: =a*d div n;   z2: =b*c div n; writeln(z1,'/',z2); end. пример: 1-я дробь (числитель и знаменатель): 5 6 2-я дробь (числитель и знаменатель): 2 8 10/3

импликация  — бинарная логическая связка, по своему применению приближенная к союзам «если… то…».

импликация записывается как посылкаследствие; применяются также стрелки другой формы и направленные в другую сторону (остриё всегда указывает на следствие).

суждение, выражаемое импликацией, выражается также следующими способами:

посылка является условием, достаточным для выполнения следствия; следствие является условием, необходимым для истинности посылки.                        x={"студент сдаст хорошо сессию"} y={"папа купит ему машину"}. однако, это не совсем удачная иллюстрация, потому что как-то не близка к действительности. напомню, что x-> y == 0 только в том случае, если студент действительно хорошо сдал сессию, а папа машину ему не купил (наоборот, если студент сдал плохо, а папа купил ему машину, то папу лжецом уж точно не назовёшь).

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

  writeln ('исходный массив d: ');

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.