Написать программу на языке Паскаль. Построить 5 прямоугольных рамок с помощью процедуры.

Написать программу на языке Паскаль. Построить 5 прямоугольных рамок с помощью процедуры.
Гость
Ответ(ы) на вопрос:
Гость
//PascalABC.NET 3.2 сборка 1318 uses  GraphABC; procedure rect5(); Var   i:integer; begin   for i:=1 to 5 do     rectangle(i*50,i*50,i*50+100,i*50+50); end;
Не нашли ответ?
Ответить на вопрос
Похожие вопросы