Знаю ответ только на первое.
Анимацию можно использовать на обьектах: текст, изображение, видео.
Все, что сам знаю.
Локальная сеть – это группа связанных между собой компьютеров, серверов, принтеров, расположенных в пределах здания, офиса или комнаты. Локальная сеть дает возможность получать совместный доступ к общим папкам, файлам, оборудованию, различным программам и т. д.
<span>Использование ресурсов локальной сети дает возможность существенно снизить финансовые затраты предприятия, повысить уровень безопасности хранения важных данных, сократить временные затраты сотрудников компании на решение различного вида задач, а так же повышение общей эффективности работ</span>
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. Затем выведем все элементы, для которых это оказалось правдой.
Pascal
var
i, j, n: integer;
flag: boolean;
a: array[1..10000] of integer;
b: array[1..10000] of boolean;
begin
read(n);
for i := 1 to n do
begin
read(a[i]);
b[i] := true;
end;
b[n] := false;
for i := 1 to n - 1 do
if b[i] then
begin
flag := true;
for j := i + 1 to n do
if a[i] = a[j] then
begin
flag := false;
b[j] := false;
end;
if flag then
b[i] := false;
end;
for i := 1 to n do
if b[i] then
write(a[i], ' ');
end.