1. Запустите текстовый редактор. Наберите текст« Казахстан расположен в центре континента Евразия и занимает девятое место в мире поплощади. На востоке, севере и северо-западе Казахстан граничит с Россией, на юге сУзбекистаном, Киргизией и Туркменистаном, а на юго-востоке — с Китаем».Сделайте гиперссылку в новый файл «Казахстан.ppt» и запишите гиперссылку.​

ответ: Запускаешь Microsoft office Word.

Следующий шаг - пишешь текст.

Третий шаг - создание гиперссылки "Казахстан.ppt"(вроде должен будет отправлять на PowerPoint):

1. Выделить текст, который должен представлять гиперссылку.

2. Щелчок правой кнопкой мыши по выделенному тексту, на вкладке "Вставка" нажать кнопку "Гиперссылка".

3. В окне "Вставка гиперссылки" ввести или вставить ссылку ( в нашем случае - Казахстан.ppt ) в поле "Адрес".

Объяснение: Результат: После запуска текстового документа весь текст выделиться синим, если нажать на текст - запуститься Казахстан.ppt в Microsoft

Pascal

var

 ar: array of integer;

 i, j, a, b, k, n :integer;

begin

(* Дан массив целых чисел (n = 20), *)

(* заполненный случайным образом числами из промежутка [-45, 95].*)

randomize;

 n:=20;

 setlength(ar, n);

 for i := 0 to n-1 do begin

   ar[i]:= random(140)-45;

   write(ar[i],' ');

 end;  

 writeln;

 

(* Удалить из него все элементы, кратные 7 и *)

(* принадлежащие промежутку [a, b] (a и b вводить с клавиатуры)*)  

 writeln('введите диапазон [a,b]');

 readln(a,b);

 

 i:=0;

 while i <= n-1 do

   if (ar[i] mod 7 = 0) and (ar[i]>=a) and (ar[i]<=b)then begin

     for j := i+1 to n - 1 do

       ar[j-1] := ar[j];

     n := n - 1

   end

   else

     inc(i);

  setlength(ar, n);

   

  for i := 0 to n-1 do begin

    write(ar[i],' ');

  end;

  writeln;

 

(* Вставить число k между всеми соседними элементами, которые образуют пару *)

(* элементов с одинаковыми знаками k вводить с клавиатуры).*)  

 writeln('введите k');

 readln(k);

 

 i := n - 1;

 while i > 0 do begin

   if ar[i]*ar[i-1]>0 then begin

     inc(n);

     SetLength(ar, n);

     for j := n - 1 downto i do

       ar[j] := ar[j-1];

     ar[i] := k;

     

   end;  

   dec(i);

 end;  

 

 for i := 0 to n-1 do

   write(ar[i],' ');

end.

// PascalABC.Net 3.0, сборка 1052
const
  Rus=['А'..'Я'];
var
  s:string;
  i,k,t:integer;
  c,c1,tc,sc:char;
  f:array['А'..'а'] of byte; // 'а' - это для 'Ё'
  ch:array['А'..'а'] of char;
begin
  Write('Введите строку: '); Readln(s);
  for c:='А' to 'а' do begin f[c]:=0; ch[c]:=c end;
  k:=0;
  for i:=1 to Length(s) do begin
    c:=UpCase(s[i]);
    if c in Rus then begin Inc(f[c]); Inc(k) end
    else
      if c='Ё' then begin Inc(f['а']); Inc(k) end;
  end;
  Writeln('Количество русских букв равно ',k);
  { сортировка массива со счетчиком количества букв }
  for c1:='А' to Pred('а') do
  for c:='А' to Pred('а') do
    if f[c]<f[Succ(c)] then begin
      t:=f[c]; tc:=ch[c]; sc:=Succ(c);
      f[c]:=f[sc]; ch[c]:=ch[sc];
      f[sc]:=t; ch[sc]:=tc
    end;
  Writeln('Частота встретившихся букв');
  c:='А';
  while (c<='а') and (f[c]>0) do begin
    if ch[c]='а' then ch[c]:='Ё';
    Writeln(ch[c],' - ',f[c]);
    Inc(c)
  end;
end.

Тестовое решение:
Введите строку: Когда я был парнишкой, носил я брюки клёш
Количество русских букв равно 33
Частота встретившихся букв
К - 4
И - 3
Л - 3
О - 3
А - 2
Б - 2
Н - 2
Р - 2
Ш - 2
Я - 2
Г - 1
Д - 1
Й - 1
П - 1
С - 1
Ы - 1
Ю - 1
Ё - 1