Question

Să se scrie un program în care afișează următorul triunghi
5 4 3 2 1
4 3 2 1
3 2 1
2 1
1
în pascal vă rog

Answer 1

Răspuns:

program triunghi;

var i,j:integer;

begin

 for i:=5 downto 1 do

   begin

     for j:=i downto 1 do

       write(j,' ');

     writeln;

   end;

end.

Explicație:

Se poate generaliza problema de la n la 1, iar n se dă de la tastatură

program triunghi_2;

var i,j,n:integer;

begin

 readln(n);

 for i:=n downto 1 do

   begin

     for j:=i downto 1 do

       write(j,' ');

     writeln;

   end;

end.