Valaki jartas Pascalban?

nem értem a kérdésed..

ezt akarod hogy meg jelenítse a program?

1 2 3

1 2

1

vagy valami olyan algoritmus kell ami számol háromszög oldalait?

pontosísd kérlek és tudok segíteni.

Rég volt már a Pascal, de valami ilyesmit kell csinálj (lehet, hogy félig-meddig Delphis lesz a válasz, alakítgasd át):

procedure haromszog(szeles : integer; fajlnev : string);

var t : text;

i,o : integer;

s : string;

begin

assign(t,fajlnev);

rewrite(t);

for i:=1 to szeles do begin

s:='';

for o:=1 to szeles-i+1 do s:=s+intToSTR(o)+' ';

writeln(t,trim(s));

end;

close(t);

end;

assign helyett lehet, hogy assignfile kell, meg close/closefile. trim(s) lecsípi az utolsó szóközt a végéről. inttostr() egész számból csinál stringet;

for i:=n downto 1 do

begin

for j:=1 to i do

write(f,j,' ');

writeln(f);

end;

A többit csináld meg, de a lényeg ennyi.