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
galinasemyan689
23.01.2020
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.