Вывести два числовых треугольника - PascalABC.NET
Формулировка задачи:
Здравствуйте помогите написать программу на PaskalABC.NET
чтобы выводилась вот такая штука.Буду весьма благодарна.ОЧЕНЬ СРОЧНО НУЖНО
Листинг программы
- 1 1
- 12 21
- 123 321
- 1234 4321
- 1234554321
- 1234 4321
- 123 321
- 12 21
- 1 1
Решение задачи: «Вывести два числовых треугольника»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
