1) запропоновано команди:
а створити файл home.txt
в створити каталог town
с створити каталог street
d відкрити створений каталог
е зробити диск
а: поточним
із літер, якими позначено команди, складіть послідовність, що відповідає алгоритму ство-
рення файла з повним іменем (специфікацією) a: \town\street\home.txt.
2) задано фрагмент електронної таблиці ms excel. яким стане значення клітинки с7 після
виконання розрахунків за наведеними в таблиці формулами?
3) задано фрагмент таблиці деякої бази даних. у якому рядку буде прізвище іваненко після
сортування даних за зростанням по полю клас?
4)який вид внутрішньої пам'яті забезпечує підвищення швидкості обміну даними між про-
цесором і оперативною пам'яттю?
5)за яким протоколом здійснюється надсилання електронного листа?
6)завдання на застосування можливостей систем програмування.
скласти програму для розв'язання і.
визначити загальну кількість операцій додавання (+), віднімання (-)
ження (*) у заданому арифметичному виразі.

Const
  n = 10;

var
  a, b, c: array[1..n] of integer;
  i, j, kb, kc, t: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  kb := 0; kc := 0;
  for i := 1 to n do
  begin
    a[i] := random(101) - 50;
    Write(a[i]:4);
    if a[i] < 0 then begin Inc(kb); b[kb] := a[i] end
    else begin Inc(kc); c[kc] := a[i] end
  end;
  Writeln;
  { теперь массив b содержит отрицательныые элементы, с - остальные }
  for i := 1 to kb - 1 do
    for j := 1 to kb - 1 do
      if b[j] > b[j + 1] then
      begin t := b[j]; b[j] := b[j + 1]; b[j + 1] := t end;
  { сливаем массивы b и c в массив а}
  i := 0;
  for j := 1 to kb do begin i := i + 1; a[i] := b[j] end;
  for j := 1 to kc do begin i := i + 1; a[i] := c[j] end;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
 -32  -8  43 -24   8 -45 -13  40  17  46
Результирующий массив
 -45 -32 -24 -13  -8  43   8  40  17  46

1)
 program numOp;
  var a,b:longint;
 begin
  write('a='); readln(a);
  write('b='); readln(b); writeln;
  writeln('Среднее арифметическое: ',((a+b)/2):0:2);
  writeln('Сумма: ',a+b);
  writeln('Разность: ',a-b);
  writeln('Произведение: ',a*b); readln;
 end.
2)
 program triangleInf;
  var
   kat1,kat2:longint;
   gip,s:real;
  begin
   write('Катет1: '); readln(kat1);
   write('Катет2: '); readln(kat2);
   gip:=sqrt(sqr(kat1)+sqr(kat2)); s:=kat1*kat2/2;
   writeln('Гипотенуза: ',gip:0:2);
   writeln('Площадь: ',s:0:2); readln;
  end.