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

Результат представить в виде простых несократимых дробей
В виде функции.
Pascal

Как-то так)

var a,b,c,d,e,f:integer;
function nod(m,n:integer):integer;
begin
while m<>n do
if m>n then m:=m-n
       else n:=n-m;
nod:=m
end;
begin
write(введите числитель1, знаменатель1, числитель2, знаменатель2);
readln(a,b,c,d);
e:=a*d+b*c;
f:=b*d;
 if f=0 then write(на 0 делить нельзя)
else
if e=0 then writeln(сложение =  ,e) 
      else begin
       e:=e div nod(abs(e),f); 
       f:=f div nod(abs(e),f); 
       writeln(сложение =  ,e,/,f); 
       end;
e:=a*c;
f:=b*d;
 if f=0 then write(на 0 делить нельзя)
else
if e=0 then writeln(умножение = ,e)
else begin
 e:=e div nod(abs(e),f);
       f:=f div nod(abs(e),f);
       writeln(умножение =  ,e,/,f);
         end;
e:=a*d;
f:=b*c;
if f=0 then write(на 0 делить нельзя)
else
         if e=0 then writeln(деление=  ,e)
else begin e:=e div nod(abs(e),f);
       f:=f div nod(abs(e),f);
       writeln(деление =  ,e,/,f); 
        end; 
     end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.