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.

Answer 2

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

Answer 3

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

Answer 4

Не надо)

Answer 5

аа

Answer 6

ды не я кину