Пользователь работал с каталогом D:\ УЧЕБА \ МАТЕМАТИКА \ 2016 \ ВЕСНА. Сначала он поднялся на три уровня вверх, потом спустился в каталог ЭКЗАМЕН и после этого спустился в каталог РАСПИСАНИЕ. Укажите полный путь для того каталога, в котором оказался пользователь, начиная с корневого каталога (логического диска):

Вот, где был пользователь сначала:

D:\УЧЕБА\МАТЕМАТИКА\2016\ВЕСНА

Затем, он поднялся на три уровня вверх:

D:\УЧЕБА

Потом спустился в каталог ЭКЗАМЕН:

D:\УЧЕБА\ЭКЗАМЕН

И после этого спустился в каталог РАСПИСАНИЕ:

D:\УЧЕБА\ЭКЗАМЕН\РАСПИСАНИЕ

ответ: D:\УЧЕБА\ЭКЗАМЕН\РАСПИСАНИЕ

Program CountA;

Uses Crt;

var a,n,x,i:integer;

begin

clrscr;  // очищаем экран

write('Введите число n:');

readln(n); // ввод данных

write('Введите цифру а: ');

readln(a);  // ввод данных

x:=1; i:=0;  i-счётчик цифр а  

while (n<>0) do // Пока n не стало равным нулю

begin

    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  

   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 

   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)

 end;

writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');

readkey; // Пауза до нажатия на любую клавишу

end.

Не знаю, правильно или нет‍♀️

Var 
 A:array[1..60] of integer;
 k,i,MIN,ind, MAX,SUM:integer;
begin
 SUM:=0;
 readln(k);
 randomize;
 writeln('Исходный массив:');
 for i:=1 to 60 do
  begin
    A[i]:=random(15)-5;
    Writeln('A[',i,']=',A[i]);
   end;
 MIN:=32600;
 MAX:=-32600;
 for i:=1 to 60 do //Ищем минимальный элемент
  begin
   if a[i]<MIN then
    MIN:=a[i];
    ind:=i;
  end;
 for i:=1 to 60 do //Ищем максимальный элемент 
    if a[i]>MAX then
       MAX:=a[i];
 for i:=60 downto 60-k do //Сумма последних k элементов 
  SUM:=SUM+a[i];
 A[ind]:=SUM;
if A[1]>=0 then 
  for i:=1 to 60 do
   begin 
     A[i]:=A[i]*sqr(MIN);
     Writeln('A[',i,']=',A[i]);
   end
 else 
  for i:=1 to 60 do
   begin
     A[i]:=A[i]*sqr(MAX);
     Writeln('A[',i,']=',A[i]);
    end;
end.