请教一题
freepascal吧
全部回复
仅看楼主
level 5
2016年05月08日 01点05分 1
level 3
program Project1;
var
a,b,c:int64;
zi,mu:int64;
begin
readln(a,b);
if a=0 then begin
writeln(0);
halt;
end;
c:=a div b;
if c<>0 then begin
write(c);
a:=a mod b;
if a=0 then
halt
else
write('+');
end;
zi:=a;
mu:=b;
c:=b mod a;
while c<>0 do begin
b:=a;
a:=c;
c:=b mod a
end;
writeln(zi div a,'/',mu div a);
readln;
end.
2016年06月23日 13点06分 2
level 5
33333333333333333333qqqqqqqqqqqqqqqqq
2016年07月29日 07点07分 3
level 5
啊,这题是去年的
2016年07月29日 07点07分 4
level 5
而且直接用“var”也可以的
2016年07月29日 07点07分 5
1