ответ:
объяснение:
program socr;
uses crt;
var n,m,d: integer;
function nod(n,m: integer): integer;
begin
while n< > m do if m> n then m: =m-n else n: =n-m;
nod: =m;
end;
clrscr;
write('n m -> ');
readln(n,m);
d: =nod(n,m);
n: =n div d;
m: =m div d;
writeln(n,'/',m);
readln;
end.
ответ:
объяснение:
program socr;
uses crt;
var n,m,d: integer;
function nod(n,m: integer): integer;
begin
while n< > m do if m> n then m: =m-n else n: =n-m;
nod: =m;
end;
begin
clrscr;
write('n m -> ');
readln(n,m);
d: =nod(n,m);
n: =n div d;
m: =m div d;
writeln(n,'/',m);
readln;
end.