Вывести два числовых треугольника - PascalABC.NET

Формулировка задачи:

Здравствуйте помогите написать программу на PaskalABC.NET чтобы выводилась вот такая штука.Буду весьма благодарна.ОЧЕНЬ СРОЧНО НУЖНО

Решение задачи: «Вывести два числовых треугольника»

textual
                            Листинг программы 
                        

                            begin
  var n: integer := 5;
  for var i: integer := 1 to 2 * n - 1 do
  begin
    var count: integer := n - abs(n - i);
    for var j: integer := 1 to 2 * n do
      write((j <= count) or (j > 2 * n - count) ? IntToStr(n - abs(j - n) + ord(j > n)) : ' ');
    writeln;
  end;
end.
                        

Оцени полезность:

14 голосов , оценка 4.071 из 5

Похожие ответы