Определите, какое из указанных имен файлов удовлетворяет маске: ? ba*r.? xt 1) bar.txt 2) obar.txt 3) obar.xt 4) barr.txt

Думаю,что ответ

Ядумаю это маске удволетворяет   4)

На паскале. 1) var i, n, sum : integer; begin sum : = 0; for i : = 1 to 10 do begin readln(n); sum : = sum + n * n; end; writeln(sum); end. 2)  var i, sum : integer; n : real; begin sum : = 0; for i : = 1 to 15 do begin readln(n); if n = trunc(n) then sum : = sum + 1; end; writeln(sum); end. 3) var n, m, i : integer; begin readln(n,  m); for i : = n to m do if i mod 2 = 0 then writeln(i); end. 4) var n, i : integer; begin readln(n); for i : = 1 to n do if n mod i = 0 then writeln(i); end.

Первый алгоритм: const   n=30; var   a: array[1..30] of integer;   s: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   s: =a[1]*a[2]; i: =3;   while i< =n-1 do   begin s: =s+a[i]*a[i+1]; i: =i+2 end;   writeln('сумма пар произведений равна ',s) end. тестовое решение: элементы массива:     1  10  -9 -12  -2  20  21  14    5  19  21 -14 -10 -17    5  -9  -8  17  18  11 -21  -3 -15 -10 -15 -16 -15    2    3  21 сумма пар произведений равна 846 второй алгоритм const   n=30; var   a: array[1..30] of integer;   smax,imax: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   smax: =a[1]+a[2]; imax: =1;   for i: =2 to n-1 do       if smax< a[i]+a[i+1] then       begin smax: =a[i]+a[i+1]; imax: =i end;   writeln('номер первого из пары элементов с максимальной суммой: ',imax) end. тестовое решение: элементы массива:   23  13 -11  -1 -18  20 -23    1 -21 -10    7  15  -2  24 -18 -22 -13  12 -16  22  19 -14 -14 -14  19  15    8 -15 -19 -22 номер первого из пары элементов с максимальной суммой: 20