📄 test3.pl0
字号:
var
a,b,c;
procedure common;
var c;
procedure rest;
begin
c:=a / b;
c:=a-c*b
end;
begin
call rest;
while c>0 do
begin
a:=b;
b:=c;
call rest
end;
write(b)
end;
procedure q;
var x,y;
begin
read(c);
x:=a+c;
y:=2*x;
write(x); write(y)
end;
begin
read(a);
read(b);
call common;
call q
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -