?? case.pl
字號:
program pp;
var n,p:integer;
var a:array [1..8] of integer;
procedure p1(n:integer; var p:integer);
begin
case n of
1: begin p:=n; p:=p+5; end;
2: begin p:=n; p:=p+5; end;
3: begin p:=n; p:=p+5; end;
4: begin p:=n; p:=p+5; end;
5: begin p:=n; p:=p+5; end;
6: begin p:=n; p:=p+5; end;
7: begin p:=n; p:=p+5; end;
8: begin p:=n; p:=p+5; end;
9: begin p:=n; p:=p+5; end;
10:begin p:=n; p:=p+5; end;
11:begin p:=n; p:=p+5; end;
12:begin p:=n; p:=p+5; end;
13:begin p:=n; p:=p+5; end;
14:begin p:=n; p:=p+5; end;
15:begin p:=n; p:=p+5; end;
16:begin p:=n; p:=p+5; end;
end;
end;
begin
call read(n);
call p1(n,p);
call write(p)
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -