Hogy csináljam ezt meg Free Pascalban?

readln(x);

for n:=1 to x do

begin

for i:=x downto n do

begin

write(x+1-i,' ');

end;

writeln;

end;

rég nem pascaloztam, de én is így csinálnám meg.

Első válaszoló vagyok.Hidd el más megoldás bonyolultabb lenne.

Van egy külső for ciklus amely a bekért számtól visszafele lépked 1-ig, ennek ciklusmagjába van még egy for ciklus mely kiírja a számokat 1-től a külső ciklusváltozó értékéig. A belső ciklus lefutása után egy sortörés. Pofon egyszerű, egyszerűbb mint elmagyarázni.

2-ik válaszoló jól írta.

3-ik válaszoló megoldása is jó, bár lehetne egyszerűbben.

Nem tudom mit rontottál el én megoldottam aztán megnéztem hogy mit javasolt a 2.-ik válaszoló és pont ugyanúgy oldottam meg a nélkül hogy elolvastam volna.

Gyerek játék:)