主题：答对有分加
ok123123
[专家分：0] 发布于 2005-06-04 14:31:00
打印下列图形
$$$$
$$$$
$$$$
$$$$
回复列表 （共11个回复）
板凳
ok123123 [专家分：0] 发布于 2005-06-04 14:34:00
错了
应该是
$$$$
$$$$
$$$$
$$$$
3 楼
ok123123 [专家分：0] 发布于 2005-06-04 14:34:00
$$$$
$$$$
$$$$
$$$$
4 楼
sd5774188 [专家分：260] 发布于 2005-06-04 22:16:00
program yb(Input,output);
var n:integer;
a:integer;
begin
while not seekeof(input) do
begin
read(n);
for a:=1 to n do
writeln('$$$$':a+3);
end;
end.
5 楼
QQ331373582 [专家分：1500] 发布于 2005-06-05 13:34:00
哦，我知道啦
6 楼
hyhuangyu [专家分：0] 发布于 2005-06-07 20:57:00
好象是：
&&&&
&&&&
&&&&
&&&&
ba
7 楼
def [专家分：3380] 发布于 2005-06-11 17:07:00
var
n,r:word;
begin
n:=1;
r:=1;
for n:=1 to 4 do
begin
r:=n;
while r-1<>0
begin
write(#32);
r:=r-1
end;
writeln('$$$$')
end;
end.
8 楼
flyingfree [专家分：90] 发布于 2005-07-05 21:25:00
楼主得题目实在太简单了。
program writing;
begin
write('$$$$',#13，'$$$$',#13,' $$$$',#13,' $$$$');
end.
9 楼
口口and枕头 [专家分：1550] 发布于 2005-07-06 20:06:00
晕~
10 楼
zhaoren [专家分：420] 发布于 2005-07-09 17:27:00
太容易了啦，告你最简单的：
begin
writeln（'$$$$');
writeln('$$$$');
writeln('$$$$':6);
writeln('$$$$':7);
end.
^_^
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 答对有分加