作业帮pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal Submit:16 Accepted:6 Description 输入个数N,打印图形.Input 输入只有一行,包括1个整数.(N
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/09 04:17:15
![pascal提问[j11]打印图形5Time Limit:1000MS Memory Limit:65536KTotal Submit:16 Accepted:6 Description 输入个数N,打印图形.Input 输入只有一行,包括1个整数.(N](/uploads/image/z/554483-11-3.jpg?t=pascal%E6%8F%90%E9%97%AE%5Bj11%5D%E6%89%93%E5%8D%B0%E5%9B%BE%E5%BD%A25Time+Limit%3A1000MS+Memory+Limit%3A65536KTotal+Submit%3A16+Accepted%3A6+Description+%E8%BE%93%E5%85%A5%E4%B8%AA%E6%95%B0N%2C%E6%89%93%E5%8D%B0%E5%9B%BE%E5%BD%A2.Input+%E8%BE%93%E5%85%A5%E5%8F%AA%E6%9C%89%E4%B8%80%E8%A1%8C%2C%E5%8C%85%E6%8B%AC1%E4%B8%AA%E6%95%B4%E6%95%B0.%28N)
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.
不知道是不是这样