📄 in.pas
字号:
program jcd ;
var x , y , g , m , a, b ;
procedure swap ;
var temp ;
begin
temp :=x ;
x := y ;
y := temp ;
end ;
procedure mod ;
begin
x := x - x / y * y
end ;
begin
read ( x , y ) ;
a := x ;
b := y ;
call mod ;
while x <> 0 do
begin
call swap ;
call mod ;
end ;
g :=y ;
m :=a*b/g ;
write ( g , m ) ;
end .
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -