Нарисовать в паскаль абс с использованием цикла
Нарисовать в паскаль абс с использованием цикла
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы