1.определите, какое из указанных имен файлов удовлетворяет маске: a? ce*s.m* 1)acess.md 2)accesst.dbf 3)access.mdb 4)akcces.m1 2.определите, какое из указанных имен файлов не удовлетворяет маске: ? ? pri*.? * 1)caprika.wow 2)weprik.cpp 3)otopri.c 4)reprint.be

1:   4)akcces.m12:   3)otopri.c

Это один символ * - сколько угодно поэтому подходит acess.md во втором не подойдет otopri.c

Var       f: text;       s: string;       n, k, i, j: integer; begin       readln(s);       readln(n, k);             assign(f, s);       rewrite(f);             s : = '';       for i : = 1 to k do               s : = s + '*';             for i : = 1 to n do               writeln(f, s);       close(f); end.

//предполагается что слова разделены пробелами //предполагается что слово - это любой набор символов без пробела var       f: text;       s: string;       i, k: integer; begin       readln(s);       k : = 1;       for i : = 1 to length(s) do               if s[i] = ' ' then k : = k + 1;       assign(f, 'file.csv');       rewrite(f);       writeln(f, k, ',');       close(f);             writeln(k); end.