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

Question

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

---

Answer 1

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.

Comments

А если так, тоже не работает?

---

uses GraphABC, crt;
Var
y,n:integer;
Begin
Read(n);
For y:= 0 to n-1 do
Line(100,300-y*(300 div (n-1)),400,y*(300 div (n-1)));
End.

---

ееее) получилось

---

рано пометила как нарушение(

---

)))

---

объясни мне эту строчку если не сложно , пожалуйста Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));

---

Вообще тут вместо div можно использовать обычное деление и округлять, но я думал, что вы команду round ещё не проходили))

---

проходили

---

Тогда можно так: Line(100,300-y*round(300 / (n-1)),300,y*round(300 / (n-1)));

---

Спасибо огромное