1. В текстовом процессоре создайте новый документ.
2. Создайте многоуровневый список «Программное обеспечение современного компьютера»:
1. Системное программное обеспечение
1.1. Операционные системы
1.1.1. Windows
1.1.2. Linux
1.1.3. Mac OS
1.2. Сервисные программы
1.2.1. Программы обслуживания дисков
1.2.2. Архиваторы
1.2.3. Антивирусные программы
1.2.4. Коммуникационные программы
2. Прикладное программное обеспечение
2.1. Приложения общего назначения
2.1.1. Текстовые редакторы
2.1.1.1. Word
2.1.1.2. Writer
2.1.2. Электронные таблицы
2.1.3. Графические редакторы
2.1.3.1. Paint
2.1.3.2. Gimp
2.1.4. Редакторы презентаций
2.2. Приложения специального назначения
2.2.1. Издательские системы
2.2.2. Бухгалтерские программы
2.2.3. Математические пакеты
2.2.4. Геоинформационные системы
3. Системы программирования
3.1. Лого
3.2. Паскаль
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.