请大家帮忙看一下这个pascl程序对不对。
答案:1 悬赏:40 手机版
解决时间 2021-11-12 09:19
- 提问者网友：書生途
- 2021-11-12 05:09
请大家帮忙看一下这个pascl程序对不对。
最佳答案
- 五星知识达人网友：长青诗
- 2021-11-12 05:31
var a,b,i,j:longint;
begin
read(a,b);
if awhile (a<>0) and (a<>1) do
begin
a:=a-b;
if a i:=b;b:=a;a:=b;
end;
end;
writeln(b);
end;
显然是对的
他的第一步操作是进行变成奇数的修改
后面是找两个奇数的最大公约数
begin
read(a,b);
if awhile (a<>0) and (a<>1) do
begin
a:=a-b;
if a i:=b;b:=a;a:=b;
end;
end;
writeln(b);
end;
显然是对的
他的第一步操作是进行变成奇数的修改
后面是找两个奇数的最大公约数
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯