一起来水吧~~~
pascal吧
全部回复
仅看楼主
level 5
FrostBlove
楼主
编写一个pascal程序,每一楼写一行,看看到底有多少人在本吧活跃
期间不可以输入end.
2016年07月21日 06点07分
1
level 5
FrostBlove
楼主
我先来
begin
2016年07月21日 06点07分
2
FrostBlove
评论请在楼中楼回复
2016年07月21日 06点07分
level 6
左京伟
write('This is a stupid game.@LZ')
2016年07月21日 06点07分
3
FrostBlove
;
2016年07月21日 11点07分
level 5
lrj020528
for i:-1 to 30000 do
2016年07月21日 08点07分
4
level 11
北方火柴
writeln(‘三级就敢水’);//
2016年07月21日 09点07分
5
level 7
菜鸟吃鲨鱼
write('经拿滚')//
2016年07月21日 10点07分
6
FrostBlove
貌似我忘了program了
2016年07月21日 11点07分
123233哈哈
@FrostBlove
不写没关系
2016年07月21日 15点07分
level 5
FrostBlove
楼主
if i=100 then write('不水怎么升级
');
2016年07月21日 11点07分
7
level 10
__Say__Say__
halt(-1);//我才不写end.呢
2016年07月22日 04点07分
8
level 5
FrostBlove
楼主
好吧
2016年07月22日 04点07分
9
level 5
FrostBlove
楼主
那begin
2016年07月22日 04点07分
10
level 5
FrostBlove
楼主
function
2016年07月22日 04点07分
11
level 11
萝莉控协会会长
var a:integer;
procedure print;
begin
writeln('LZSB,拿精滚
');
end;
begin
while 0=0 do begin
print;
end;
end.
2016年07月22日 07点07分
12
level 5
FrostBlove
楼主
说好的不能end.呢..
2016年07月22日 07点07分
13
level 11
曟_IIIV
那halt;
2016年07月22日 08点07分
14
level 1
星空无云777
writeln('Let us water together');
2016年07月23日 03点07分
15
菜鸟吃鲨鱼
一起水呀水
2016年07月23日 03点07分
1
2
尾页