//////////////////////////////////////////
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
Var
simple: array[1..10000] of integer;
i, j, a, b, simple_n, s: integer;
is_simple: boolean;
begin
read(a, b);
for i := 2 to b do begin
is_simple := true;
for j := 1 to simple_n do
is_simple := is_simple and (i mod simple[j] <> 0);
if is_simple then begin
simple_n := simple_n + 1;
simple[simple_n] := i;
writeln(i);
if i >= a then s := s + i;
end;
end;
writeln(s);
end.
На рабочем столе есть значок с надписью " корзина" . Туда и удаляется вся ненужная информация с компьютера. Но информацию из корзины можно восстановить и просмотреть, нажав на ярлык левой кнопкой мыши и нажав на удаленную информацию правой кнопкой мыши.
Рабочая книга (документ Excel) состоит из рабочих листов,
каждый из которых является электронной таблицей. По умолчанию открывается три
рабочих листа или три электронных таблицы, переход к которым можно осуществить,
щелкая на ярлычках, расположенных внизу книги. При необходимости в книгу можно
добавить рабочие листы (электронные таблицы) или удалить их из книги.
