2. маска сегодня на уроке информатики изучали маски файлов. маской называется строка-шаблон, знак вопроса в записи которой соответствует любому одному символу, а звездочка (*) соответствует любой (в том числе и пустой) последовательности символов. например, строка ? x*ple*? pas является маской для файла example.pas, а строка ? xamp? .* не является маской для этого файла. в качестве дали 5 листочков с масками и 5 листочков с названием файлов и попросили подобрать каждому файлу свою маску (у всех файлов в итоге получились 1различные маски пете справиться с . 1 mart.dbr 2superplan.db2 3korabli.db2 4fotograf.db 5aerograf.dat a]*o*a*.db* b]? a*.*d* в]*o*a*.db? г]*a*.d? ? д]*a*.db?

1) mart.dbr = б] ?a*.*d*
2) superplan.db2 = д] *a*.db?
3) korabli.db2 = в] *o*a*.db?
4) fotograf.db = а] *o*a*.db*
5) aerograf.dat = г] *a*.d??

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

var

    x, s, a: real;

    i: integer;

begin

    readln(x);

   

    a : = x;

    s : = a;

   

    for i : = 2 to 13 do

        if i mod 2 = 1 then begin

            a : = a * (-1) * x * x / ((i - 1) * i);

            s : = s + a;

        end;

   

    writeln(s);

end