Question

Scrieți un program care citește dea tastatură numărul întreg n 1<n<9 și afișează pe ecran figurile formate din cifrele 1,2,3,...,n după cum urmează. Prin pascal vă rog punctul d!​

Answer 1

Răspuns:

 var

   i, j, n: Byte;

begin

 Write('n: ');

 ReadLn(n);

 for i := 1 to n do begin

   for j := i + 1 to n do Write(' ');

   for j := 1 to i * 2 - 1 do Write(i);

   WriteLn;

 end;

 for i := n - 1 downto 1 do begin

   for j := i + 1 to n do Write(' ');

   for j := 1 to i * 2 - 1 do Write(i);

   WriteLn;

 end;

end.