?>
Для групповых операций с файлами используются маски имен файлов. Маска представляетсобой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которыхтакже могут встречаться следующие символы: Символ «?» (вопросительный знак) означает ровно одинпроизвольный символ. Символ «*» (звездочка) означает любую последовательность символовпроизвольной длины, в том числе «*» может задавать и пустую последовательность. Определите, покакой из масок будет выбрана указанная группа файловmake.cpp, name.c, age.pc, name.cpp1) *a*e.? 2) a?e.* 3) *a?e.* 4) ?a?e.*2)Для групповых операций с файлами используются маски имен файлов. Маска представляетсобой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которыхтакже могут встречаться следующие символы: Символ «?» (вопросительный знак) означает ровно одинпроизвольный символ. Символ «*» (звездочка) означает любую последовательность символовпроизвольной длины, в том числе «*» может задавать и пустую последовательность. Определите, какоеиз указанных имен файлов удовлетворяет маске: re*_a?09.do?1) refa-09.doc 2) ref_a_09.do 3) refe_a09.doc 4) ref_a_09.dot3 24.Для групповых операций с файлами используются маски имен файлов. Маска представляетсобой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которыхтакже могут встречаться следующие символы: Символ «?» (вопросительный знак) означает ровно одинпроизвольный символ. Символ «*» (звездочка) означает любую последовательность символовпроизвольной длины, в том числе «*» может задавать и пустую последовательность. Определите, какоеиз указанных имен файлов удовлетворяет маске: d?cf*.jp*g1) dscf3456.jpeg 2) dcf1234.jpg 3) dsscf6754.jpg 4) dcsf1111.jpeg
Ответы
1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.