Нарисовать в паскаль абс с использованием цикла

Question

Нарисовать в паскаль абс с использованием цикла

---

Answer 1

Uses GraphABC;var x, y, n, i:integer;const width = 25;const height = 100;begin  read(x,y,n);  DrawRectangle(x,y,x+width*n,y+height);  for i:=2 to n do  begin    x+=width;    MoveTo(x,y);    LineTo(x,y+height);  end;end.

Comments

спасибо большое!!!

---

если сделаешь даже готов на мобилу 20 руб кинуть

---

Усё готово

---

кидай в коменты

---

я из чушка выйду кину лаве тебе

---

ток номер оставь

---

Я прям в решении изменил

---

Не надо)

---

аа

---

ды не я кину