1.Разработать пакетный файл для удаления всех временных файлов или текстовых документов(*.tmp, *.doc, *.docx, *.txt) в любой заданной директории.
2. Разработать пакетный файл для запуска программ «Блокнот» и «Калькулятор» в зависимости от
передаваемого параметра.
3. Разработать пакетный файл для создания файла с именем текущей даты и вывод в него информации о
заданной директории.
4. Разработать пакетный файл для вывода информации в файл о всех имеющихся исполняемых файлах в
заданном директории.
5. Разработать пакетный файл для вывода на экран содержимого всех txt-файлов заданной директории.
6. Разработать пакетный файл для вывода в файл списка всех вложенных директорий заданного каталога.
7. Разработать пакетный файл для вывода в файл списка всех файлов, начинающихся с символа a, а также
информацию о них.
8. Разработать пакетный файл для создания копий файлов с расширением *.docx любого заданного каталога.
9. Разработать пакетный файл для запуска другого пакетного файла, который, в свою очередь, будет выводить
информацию о файлах корневого каталога диска C:\ .
10. Разработать пакетный файл для создания каталога с именем версии текущей операционной системы.
11. Разработать пакетный файл для вывода информации о существующих жестких дисках.
12. Разработать пакетный файл для вывода информации в файл о переменных среды Windows.
13. Разработать пакетный файл для вывода в файл справки о заданной команде.
14. Разработать пакетный файл для вывода в файл краткой информации о существующих командах.
15. Разработать пакетный файл для запуска утилиты проверки диска и вывода в файл статистики проверки.
16. Разработать пакетный файл для сравнения двух файлов и вывода информации сравнения.
17. Разработать пакетный файл для поиска текстовой строки в заданном файле.

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.

языки программированияязык программирования - это система обозначений, служащая для точного описания программ или алгоритмов для эвм. языки программирования являются искусственными языками. от естественных языков они отличаются ограниченным числом “слов” и строгими правилами записи команд (операторов). поэтому при применении их по назначению они не допускают свободного толкования выражений, характерного для естественного языка.можно сформулировать ряд требований к языкам программирования и классифицировать языки по их особенностям.основные требования, предъявляемые к языкам программирования: наглядность - использование в языке по возможности уже существующих символов, хорошо известных и понятных как программистам, так и пользователям эвм; единство - использование одних и тех же символов для обозначения одних и тех же или родственных понятий в разных частях алгоритма. количество этих символов должно быть по возможности минимальным; гибкость - возможность относительно удобного, несложного описания распространенных приемов вычислений с имеющегося в языке ограниченного набора изобразительных средств; модульность - возможность описания сложных алгоритмов в виде совокупности простых модулей, которые могут быть составлены отдельно и использованы в различных сложных алгоритмах; однозначность - недвусмысленность записи любого алгоритма. отсутствие ее могло бы к неправильным ответам при решении [].в настоящее время в мире существует несколько сотен реально используемых языков программирования. для каждого есть своя область применения.

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.

var a,b,c,d: real;

begin

    read(a,b,c,d);

    if ((a< c) and (b< d)) or ((b< c) and (a< d)) then

        writeln('впишется')

    else writeln('не впишется');

end.

var a,b,c: real;

begin

    read(a,b,c);

    if (a> b) and (a> c) then a: = b*c;

    if (b> a) and (b> c) then a: = a*c;

    if (c> b) and (c> a) then a: = b*a;

    writeln(a);

end.

3)var x,y,z,u: real; function max(x,y,z: real): real; begin  if (x> =y) and (x> =z) then max: = x;   if (y> =x) and (y> =z) then max: = y;   if (z> =y) and (z> =x) then max: = z; end; function min(x,y,z: real): real; begin  if (x< =y) and (x< =z) then min: = x;   if (y< =x) and (y< =z) then min: = y;   if (z< =y) and (z< =x) then min: = z; end; begin      read(x,y,z);       u: =(max(x,y,z)*max(x,y,z)-exp(x*ln(/(sin(2*x)+max(x,y,z)/min(x,y,z));       writeln(u); end.