Определите, какое из указанных имен файлов удовлетворяет маске *en? .*eа) zen.exe б) end.eml в) end1.exe г) end.exe

Ятак понимаю эта маска из урезанного стандарта? : d по идее ни одно из предложенных вариантов не подходит потому что "? " указывает на наличие предыдущего символа. иначе же если он указывает на один произвольный символ то подойдут все варианты из предложенных ниже в том числе и вариант "г)": end.exe something_wrongen..fuсke abcen#.oshie и тому подобные : d и то это если учесть что "*" является "*? " и не может быть ".*" : d

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! procedure dectop(n,p: integer); { перевод из десятичной системы в систему по основанию p } begin   var s: ='';   while n> 0 do begin       s: =n mod p+s;       n: =n div p       end;   writeln(s) end; begin   var (n,k): =readinteger2('введите число и основание системы счисления: ');   if k.between(2,10) then dectop(n,k)   else writeln('основание системы счисления вне [2; 10]'); end.

Uses crt; const   n=15;   var   i,m1,m2,t: integer;   k: array[1..n] of integer; begin   clrscr;   writeln('укажите количество людей на каждом этаже');   for i: =1 to n do read(k[i]);   writeln;   { массив получен, решаем }   m1: =1; m2: =2;   if k[m2]< k[m1] then begin t: =m1; m1: =m2; m2: =t end;   for i: =3 to n do       if k[i]< k[m2] then begin m2: =i; t: =m1; m1: =m2; m2: =t end;   writeln('меньше всего людей на этажах ',m1,' и ',m2);   readkey end. ************************************************************************************** uses crt; const   n=10;   a: array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);   var   i,j,t: integer; begin   clrscr;   t: =a[1];   i: =2;   while (i< =n) and (a[i]=t) do i: =i+1;   if i< =n then begin       writeln('одинаковых элементов: ', i-1);       write('за ними следуют элементы ');       for j: =i to n do write(a[j],' ');       writeln       end   else writeln('весь массив заполнен одинаковыми элементами');   readkey end.