Question

в выходной текстовый файл input.txt выведите изображение фигуры, приведенной ниже (задание 5)

Answer 1

// Pascal ABC.NET

var

 i, j: Integer;

 fOut: text;

begin

 Assign(fOut, 'input.txt');

 ReWrite(fOut);

 for i := 1 to 5 do begin

   for j := 1 to (5-i) do

     Write(fOut, ' ');

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

     Write(fOut, i);

   for j := 1 to (5-i) do

     Write(fOut, ' ');

   WriteLn(fOut);

 end;

 Close(fOut);

end.