Реализовать программу на паскаль abc "звездное небо" и затем гасит его

Question

Информатика

Ромаха

25 августа, 20:44

Реализовать программу на паскаль abc "звездное небо" и затем гасит его

+3

Ответы (1)

Знаете ответ?

Нюта · Answer 1

Красота: з

uses

GraphABC;

var

i: integer;

begin

GraphABC. Brush. Color : = Color. DarkBlue;

GraphABC. FillRect (0, 0, WindowWidth, WindowHeight) ;

for i : = 1 to 1000 do

GraphABC. SetPixel (Random (WindowWidth), Random (WindowHeight), clWhite) ;

end.