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 года назад

Помогите помогите пожалуйста

Veritifi [51]

1.
Даные, програмы, работа
2.
а.)
2строка
б.)
2строка

0 0

1 год назад

Прочитать ещё 2 ответа

Каков информационный вес каждого символа если реферат состоит из 25 страниц на каждой странице 28 символов

Закеша

1 байт = 1 символ стандарт
25 стр * 28 симв * 1 байт симв = 700 байт вес

0 0

1 год назад

Известно сопротивление каждого из элементов электрической цепи. Все элементы соединены параллельно. Определить общее сопротивлен

Алена2710 [350]

var cond,res:real;

begin

cond:=0;

readln(res);

while (res>0) do

begin

cond:=cond + 1/res;

readln(res);

end;

writeln(1/cond)

end.

(Считаю, что с клавиатуры вводятся сопротивления, признак конца ввода - 0)

0 0

4 года назад