Нарисовать прямоугольный равнобедренный треугольник - Pascal ABC

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

Задано целое число. Используя средства стандартного ввода-вывода, изобразить на экране прямоугольный равнобедренный треугольник, катеты которого параллельны осям координат и равны за данному числу.


textual

Код к задаче: «Нарисовать прямоугольный равнобедренный треугольник - Pascal ABC»

const c = '*';
      h = 25;
var n, i: integer;
begin
  repeat
    write('n in 1..', h, ';  n = ');
    readln(n)
  until (n >= 1) and (n <= h);
  for i := 0 to n - 2 do
    begin
      write(c);
      if i = 0
        then writeln
        else writeln(c:(2 * i))
    end;
  for i := 1 to n do write(c, ' ');
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 4.583 из 5

Источник