Ввести с клавиатуры число линий и построить фигуру

Ввести с клавиатуры число линий и построить фигуру
Гость
Ответ(ы) на вопрос:
Гость
uses GraphABC; Var y,n:integer; Begin Write('n = '); ReadLn(n); For y:= 0 to n-1 do     Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1))); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы