program prog;
uses wincrt;
var x,y,j,i,num:integer;
begin
x:=1;
writeln('numero');
readln(num);
for i:=1 to num do
begin
for j:=1 to i do
begin
y:=x+i;
write(y-j);
x:=x+1;
end;
writeln;
end;
end.
---------------
deberia salirme un triangulo tal que
1
3 2
6 5 4
10 9 8 7
pero me sale
1
3 3
6 6 6
10 10 10 10
y es que el valor de x me aumenta en la misma cantidad que aumenta la columna( j ) y por eso se me repiten, pero claro, si le pongo otra cantidad ya no me salen los valores de la primera columna.. en fin, alguien sabe que algoritmo puedo utilizar??? gracias!!
