Как нарисовать треугольник в Паскаль?
Это код прямоугольника:
uses crt;
var i:integer;
begin
TextSize(16);
TextBold;
textcolor (4);
for i:=1 to 25 do begin
gotoxy(27+i,1);
write('*');
gotoxy(27+i,23);
write('*');
gotoxy(27,i);
write('*');
gotoxy(52,i);
write('*');
end;
end.

roofers    1   20.03.2020 05:52    1