📄 gcd.txt
字号:
/*求最大公约数程序,edit by 谭添升 2006-5-28*/
var a:int;
var b:int;
var result:int
begin
read a;
read b;
while not (a==b)
do
begin
if a>b then a:=a-b
else b:=b-a
fi
end;
result:=a;
write result
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -