Написать программу на языке паскаль,которая используя цикл ,строит семейство прямоугольников случайного цвета.

254

403

Посмотреть ответы 2

Ответы на вопрос:

Нови4ок228

Информатика

4,4(73 оценок)

Uses graphabc; var i: integer; arr: array [1..6] of color; begin arr[1] : = clpink; arr[2] : = clred; arr[3] : = clgreen; arr[4] : = clblue; arr[5] : = clyellow; arr[6] : = clorange; for i : = 0 to 59 do begin setbrushcolor(arr[random(6) + 1]); fillrectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19); sleep(20); end; end.