pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal Submit:16 Accepted:6 Description 输入个数N,打印图形.Input 输入只有一行,包括1个整数.(N
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/17 18:37:38
pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal Submit:16 Accepted:6 Description 输入个数N,打印图形.Input 输入只有一行,包括1个整数.(N
pascal提问
[j11]打印图形5
Time Limit:1000MS Memory Limit:65536K
Total Submit:16 Accepted:6
Description
输入个数N,打印图形.
Input
输入只有一行,包括1个整数.(N
pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal Submit:16 Accepted:6 Description 输入个数N,打印图形.Input 输入只有一行,包括1个整数.(N
表示看样例找不到规律
用for循环就行了
program a001;
var
i,j,k,n:integer;
begin
readln(n);
for i:= 1 to n+1 do
begin
for j:= 1 to n-i+1 do write(' ');
write('*');
if i = 1 then
begin
writeln;
continue;
end;
for j:= 1 to i-2 do write(' ');
write('*');
for j:= 1 to i-2 do write(' ');
writeln('*');
end;
end.
不知道是不是这样