Re: help ergent
You may use 3 loops for that and seperate them with spaces. i didnt take care of location but it ll be more simple(study it by yourself)
Exp:
For i=1 to 5
{
for j=0 to (i-1) //
{
print (j+i)
print (' ')
}
for z=2 to i
{
print (2i-z)
print(' ')
}
}
Or reall code pascal:
begin
s:='';
For i:=1 to 5 do
begin
for j:=0 to (i-1) do
begin
s:=s+inttostr(j+i)+' ';
end;
for z:=2 to i do
begin
s:=s+inttostr(2*i-z)+' ';
end;
memo1.Lines.Add(s);
s:='';
end;
Good luck