Question

Scrieti un program care afiseaza urmatorul triunghi 54321 5432 543 54 5 in pascal

Answer 1

Răspuns:

var

 n, i, j: integer;

begin

 write('n='); readln(n);

 for i := 1 to n do

 begin

   for j := 1 to n - i + 1 do

     write((n - j + 1):4);

   writeln;

 end;

end.