pascal 输入两个正整数，,求最大公约数值和最小公倍数。
答案:3 悬赏:80 手机版
解决时间 2021-11-07 19:56
- 提问者网友：暮烟疏雨之际
- 2021-11-07 01:55
pascal 输入两个正整数，,求最大公约数值和最小公倍数。
最佳答案
- 五星知识达人网友：一秋
- 2021-11-07 02:22
最大公约数：
function zdgys(a,b:integer):integer;
begin
if a mod b=0 then zdgys:=b
else zdgys:=zdgys(b,a mod b);
end;
var
a,b:integer;
begin
readln(a,b);
writeln(zdgys(a,b));
end.
最小公倍数
var
a,b,t:integer;
begin
readln(a,b);
if a while a mod b <>0 do a:=a+1;
writeln(a);
end.
function zdgys(a,b:integer):integer;
begin
if a mod b=0 then zdgys:=b
else zdgys:=zdgys(b,a mod b);
end;
var
a,b:integer;
begin
readln(a,b);
writeln(zdgys(a,b));
end.
最小公倍数
var
a,b,t:integer;
begin
readln(a,b);
if a while a mod b <>0 do a:=a+1;
writeln(a);
end.
全部回答
- 1楼网友：枭雄戏美人
- 2021-11-07 03:14
var i,n,s,t,m,j,k,l:longint;
function gcd(x,y:longint):longint;
begin
if x mod y=0 then exit(y) else exit(y,x mod y);
end;
begin
readln(x,y);
writeln(gcd(x,y));
writeln((x*y) div (gcd(x,y)));
end.
function gcd(x,y:longint):longint;
begin
if x mod y=0 then exit(y) else exit(y,x mod y);
end;
begin
readln(x,y);
writeln(gcd(x,y));
writeln((x*y) div (gcd(x,y)));
end.
- 2楼网友：孤独的牧羊人
- 2021-11-07 02:36
题目不清楚，问问老师，老师会告诉你的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯