SoloCodigo

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!!

un programa que sume los digitos de los numeros enteros que se le han metido por teclado...

imagino que sera facil pero yo no me llevo demasiado bien con la programacion..

en fin, me podrian ayudar??

no puedo sumar tipo char..  solo se me ocurre convertir los digitos a enteros con ORD pero... realmente no me valen para nada los numeros porque la suma de ellos me dara un caracter.. a saber.

jooooo me ayudais??