gcd.txt

来自「第一次写的」· 文本 代码 · 共 13 行

program gcd;
var x,y,rem
begin
read(x);
read(y);
while rem<>0 do
begin
rem:=x-y*(x/y);
x:=y;
y:=rem
end;
write(x)
end