Question

Нарисуйте равнобедренный прямоугольный треугольник из звездочек высоты 50 при помощи цикла на языке pascal.

Answer 1

begin

 var s: string;

 for var i := 1 to 50 do

 begin

   s := i * '*';

   Println(s)

 end

end.

Answer 2

Конечно! Вот пример кода на языке Pascal, который рисует равнобедренный прямоугольный треугольник из звездочек высотой 50:

pascalCopy code
program DrawTriangle;

var
  height, i, j: integer;

begin
  height := 50;

  for i := 1 to height do
  begin
    for j := 1 to height - i do
      write(' ');

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

    writeln();
  end;
end.

Этот код использует вложенные циклы для отрисовки треугольника. Внешний цикл for отвечает за текущую строку треугольника, а внутренние циклы for рисуют пробелы перед звездочками и звездочки сами по себе. Результатом выполнения этого кода будет равнобедренный прямоугольный треугольник из звездочек, высотой 50.