pascal求最小公倍数和最大公约数如题

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/18 10:28:38
pascal求最小公倍数和最大公约数如题
x@_e(r&yqي`W\%Or& hwV3Lhb,~yNbS|uEǒ]9,oPZ&_t o.D-vdNx${VJ9(kZujY~2ʀ L2u[ ؍5ܒjfhVB

pascal求最小公倍数和最大公约数如题
pascal求最小公倍数和最大公约数
如题

pascal求最小公倍数和最大公约数如题
var
a,b,i:integer;
begin
readln(a,b);
for i:=a to 1 do if (a mod i=0) and (b mod i=0)then writeln(i);
end.//公约数
var
a,b,i:integer;
begin
readln(a,b);
i:=1;
repeat
inc(i);
until a*i mod b=0;
end.//公倍数