Uses GraphABC;
begin
LockDrawing;
for var i:=1 to 800 do
begin
    Window.Clear;
    Brush.Color := clGray;
   FillRectangle(i+10,90,i-110,430);
   Brush.Color := clRed;
   Ellipse(i,100,i-100,200);
   Brush.Color := clYellow;
   Ellipse(i,210,i-100,310);
   Brush.Color := clGreen;
   Ellipse(i,320,i-100,420);
   Redraw;
   Sleep(1);
end;
for var i:=1 to 900 do
begin
Window.Clear;
Brush.Color := clBlack;
Ellipse(i,100,i-200,300);
Brush.Color := clWhite;
Ellipse(i-1,101,i-199,299);
Brush.Color := clRed;
Ellipse(i-20,120,i-180,280);
Brush.Color := clWhite;
FillRectangle(i-50,180,i-150,220);
Redraw;
Sleep(1);
end;
end.

0 0

4 года назад

Информационный объем текста, набранного на компьютере с использованием кодировки Unicode (каждый символ кодируется 16 битами), —

ValeriSot [786]

4096:16=256
256 Символов всего

0 0

4 года назад

Подбери к каждой группе слово, которому могут предшествовать любые из букв слева: М,С,ЯГ,В,ШК,БОР

Владимир-888

Ода сода мода борода

0 0

4 года назад