Копирование группы файлов удовлетворяющих маске из одного каталога в несколько других каталогов. Маска и каталоги передаются как параметры пакетного файла.

@echo off

if '%1' == '' (
         echo Empty mask param!
         goto :end
) 

if '%2' == '' (
         echo Empty directory param!
    goto :end
)

...

Удаления файлов по заданному расширения в каталогах и их подкаталогах. Расширения (можно задать несколько) задаются параметром пакетного файла. Удаленные файлы вывести.

@echo off

if '%1' == '' (
         echo Empty directory param!
    goto :end
)

if exist %1 (
         pushd %1
) else (
    ...

Поиск файлов по маске в указанном каталоге и его подкаталогах. Маска задается параметром пакетного файла. Найденные файлы вывести. Предусмотреть одновременный ввод нескольких масок.​

@echo off

if '%1' == '' (
         echo Empty directory param!
    goto :end
)

if exist %1 (
         pushd %1
) else (
    echo Directory isnt exist!!
    goto :end
)

...

Begin30. Дано значение угла a в радианах (0<a<2pi). Определить значение этого же угла в градусах, учитывая, что 180°=pi радианов.
var a, r: real;
begin
  write('Введите значение угла в радианах (0..2*pi) ->');
  readln(r);
 ...

Begin29. Дано значение угла a в градусах (0<a<360). Определить значение этого же угла в радианах, учитывая, что 180°=pi радианов.
var a, r: real;
begin
  write('Введите значение угла в градусах (0..360) ->');
  readln(a);
  ...

Begin28. Дано число A. Вычислить A¹⁵, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A², A³, A⁵, A¹⁰, A¹⁵. Вывести все найденные степени числа A.
var a, a2, a3: real;
begin
  write('Введите a ->');
  readln(a);
  a2:=a*a;
  writeln('a^2 = ', a2:6:2);
  a3:=a2*a;
  writeln('a^3 = ', a3:6:2);
  a:=a2*a3;
  writeln('a^5 = ', a:6:2);
  ...

Begin27. Дано число A. Вычислить A⁸, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A², A⁴, A⁸. Вывести все найденные степени числа A.
var a, buf: real;
begin
  write('Введите a ->');
  readln(a);
  buf:=a*a;
  writeln('a^2 = ', buf:6:2);
  ...

Begin26. Найти значение функции y=4(x–3)⁶–7(x–3)³+2 при данном значении x.
var x, y: real;
begin
  write('Введите x ->');
  readln(x);
  ...

Begin25. Найти значение функции y=3x⁶–6x²–7 при данном значении x.
var x, y: real;
begin
  write('Введите x ->');
  readln(x);
  ...

Begin24. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в C, C – в B, B – в A, и вывести новые значения переменных A, B, C.
var a, b, c, buf: real;
begin
  write('Введите значения А, B и C ->');
  readln(a, b, c);
  buf:=a;
  a:=b;
 ...