最大公约数很简单，只要这样：read（a，b）；if a>b then k:=a else k:=b;for i:=k downto 1 doif (i mod a=0) and (i mod b=0)then writeln(i);最小公倍数也很简单：read(a,b);for i:=1 to a*b doif (i mod a=0)and(i mod b=0) then writeln(i);
programaa;vara,b:integer;procedurezuixiao(x,y:integer); :=x;repeati:=i+1;until(imodx=0)and(imody=0);writeln('zuixiaogongbeishuwei:',i);end;procedurezuida(xx,yy:integer); :=xx;repeatj:=j-1;until(xxmodj=0)and(yymodj=0);writeln('zuidagongyueshuwei:',j);end;beginwrite('pleaseinputa:');readln(a);write('pleaseinputb:');readln(b);zuixiao(a,b);zuida(a,b);readln;end.
答：我好久没用了记得不是很全.turbopascal里面有的一些函数freepascal好像是没有的,free有点像turbo的简化版.free目前应该是竞赛用得比...详情>>