pascal求最小公倍数和最大公约数
来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/15 07:10:29
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.//公倍数
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.//公倍数
pascal求最小公倍数和最大公约数
pascal 求最大公约数和最小公倍数
Pascal语言求两个数的最小公倍数和最大公约数
pascal语言 求n个自然数的最大公约数和最小公倍数
free pascal 求最大公约数与最小公倍数
最大公约数和最小公倍数问题pascal最优
求最大公约数和最小公倍数
求两个自然数,其和是667,最小公倍数与最大公约数之比是120:1(pascal)
pascal最大公约数及最小公倍数问题
pascal 输入任意两个自然数M和N,求两个自然数M和N的最大公约数和最小公倍数
pascal 输入任意两个自然数M和N,求两个自然数M和N的最大公约数和最小公倍数?
求质数最大公约数和最小公倍数