Question

pascal打印一个星号右三角形。

Description

打印一个星号右三角形。

Input

一个整数n

Output

输出图形

Sample Input

3

Sample Output

*
**
***

Source
在线等答案！@！！！

Answer 1

直接给你写程序吧，不懂再问我
var
n,i,j,k:integer;
begin
readln(n);
for i:=1 to n do //控制行数
begin
for j:=1 to n-i do //控制空格数
write(' ');
for k:=1 to i do //控制星号数
write('*');
writeln;
end;
readln;
end.

Answer 2

var a,b,c,d,e,m,n:longint;
begin
readln(n);
for a:=1 to n do
begin
for b:=1 to n-a do
write(' ');
for b:=n-a+1 to n do
write('*');
writeln;
end;
end.