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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 01:07:18
pascal求最小公倍数和最大公约数如题

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.//公倍数