Информатиканапишите маску для выделения всех файлов; а) с расширением doc; б) имя которых начинается с буквы f; в) имя которых содержит pci; г) расширение которых вторая буква h; д) в имени которых первая буква u, третья буква s, а в расширении есть буква o; е) в имени и в расширении которых ровно по одному символу​

Procedure F(n: integer);
begin
  if n>0 then begin
    Write (n);
    F(n-2);
    F(n div 4);
    end
end;

begin
  F(9);
end.

На выходе будет 97531112

Если нужна трассировка, её можно сделать примерно так:

procedure F(n: integer);
begin
  Writeln('Вход');
  if n>0 then begin
    Writeln ('В выходную строку: ',n);
    Writeln('Вызов F(n-2)');
    F(n-2);
    Writeln('Вызов F(n div 4)');
    F(n div 4);
    end;
    Writeln('Выход')
end;

begin
  F(9);
end.

Результат трассировки:
Вход
В выходную строку: 9
Вызов F(n-2)
Вход
В выходную строку: 7
Вызов F(n-2)
Вход
В выходную строку: 5
Вызов F(n-2)
Вход
В выходную строку: 3
Вызов F(n-2)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 2
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход

#include "stdafx.h"#include <iostream>#include <windows.h>#include <ctime>using namespace std;int main(){ SetConsoleCP(1251); SetConsoleOutputCP(1251); srand(time(0)); int n,t; double ot=0, pol=0, nol=0; cout << "Введите размер массива " << endl; cin >> n; double *core = new double[n]; for (int i = 0; i < n; i++) { cout << "Введите элемент " << endl; cin >> core[i]; } for (int i = 0; i < n; i++) { if (core[i] < 0) { ot++; } if (core[i] > 0) { pol++; } if (core[i] == 0) { nol++; } } cout << "Положительных: " << pol << ", отрицательных: " << ot << ", нулей:" << nol << endl;}