freepascal吧 关注:250贴子:915
  • 4回复贴,共1



1楼2016-05-08 09:28回复
    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.


    IP属地:浙江2楼2016-06-23 21:58
    回复
      广告
      立即查看
      33333333333333333333qqqqqqqqqqqqqqqqq


      3楼2016-07-29 15:44
      回复
        啊,这题是去年的


        4楼2016-07-29 15:45
        回复
          而且直接用“var”也可以的


          5楼2016-07-29 15:46
          回复