Question

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

Answer 1

begin

 var s: string;

 for var i := 1 to 50 do

 begin

   s := i * '*';

   Println(s)

 end

end.