Укажите номера имён файлов, соответствующих маске *добр???.d?c 1) недобор.doс 2) доброта.doc 3) добро.doc 4) добродел.doc

ответ:2

Объяснение:

? - один произвольный символ (обязательно)

*-любая последовательность символов или их отсутствие.

Объяснение:

1. var i: integer;

var z, s: double;

begin

i := 1;

z := 512;

s := 0;

while i <= 10 do

 begin

  s := s + i/z;

  inc(i);

  z := z/2;

 end;

writeln(s:0:2);

end.

2. var i, k: integer;

begin

i := 0;

k := 0;

repeat  

 inc(i);

 if ((i mod 2) = 0) then inc(k);

until i=5;

write(k);

end.

3. var i, n: integer;

begin

i := 0;

n := 0;

while i<10 do

 begin

  n := random (31) + 10;

  if ((n mod 2) = 0) then  

    begin

      writeln(n);

      inc(i);

     end;

 end;

end.

var a: integer;

begin

readln(a);

if (a < 12) then  

 begin

 if (a >= 0) then

   begin

     case a of 1: writeln('Январь'); end;

     case a of 2: writeln('Февраль'); end;

     case a of 3: writeln('Март'); end;

     case a of 4: writeln('Апрель'); end;

     case a of 5: writeln('Май'); end;

     case a of 6: writeln('Июнь'); end;

     case a of 7: writeln('Июль'); end;

     case a of 8: writeln('Август'); end;

     case a of 9: writeln('Сентябрь'); end;

     case a of 10: writeln('Октябрь'); end;

     case a of 11: writeln('Ноябрь'); end;

     case a of 12: writeln('Декабрь'); end;

   end;

 end;

end.