Для групповых операций с файлами используются маски имен файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, е
которых также могут встречаться следующие символы:Символ «?» (вопросительный знак)
означает ровно один произвольный символ.Символ «*» (звездочка) означает любую
последовательность символов произвольной длины, в том числе «*» может задавать и пустую
последовательность. В каталоге находится 6 файлов:dinar.mpg
inoe.mpg
line.mpeg
minor.mdb
minor.mp3
pinoccio.mp3
Определите, по какой из масок из них будет отобрана указанная группа файлов:
dinar.mpg
line.mpeg
minor.mp3
pinoccio.mp3
Варианты ответов:
1.Pin*.m*
2. ?in“ тр*
3. *in?.mp"
4. ?in* тр?
для групповых операций с файлами используются маски имён файлов. маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: символ "?" ( вопросительный знак ) означает ровно один использованный символ. символ "*" (звёздочка) означает любую последовательность символов произвольной длины, в том числе "*" может задавать и пустую последовательность. к в каталоге находится 6 файлов
adobe.xls
adobe.xml
idol.xlsx
london.xls
odor.xlsx
sdoba.xls
определите , по какой из масок из них будет отобрана указанная группа файлов:
adobe.xls
idol.xlsx
odor.xlsx
sdoba.xls
варианты ответов:
1. ?do*.xls
2. ?do?.xls*
3. *do*.x*
4. ?do?.xls*
A:integer;
Begin
Randomize;
A:=random(101);
WriteLn('Исходное число: ',A);
if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)
else WriteLn('Число нечётное, ',A*A);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')
else WriteLn(Sqrt(A),', осень')
End.
Var
A:integer;
Begin
Randomize;
A:=random(900)+100;
WriteLn('Исходное число: ',A);
if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)
else WriteLn('Оно не кратно пяти, ',A mod 100);
End.
Var i, N, k1, k2, k3, R : integer;
mas: array[1..100]of integer;
Begin
Writeln ('Введите число элементов массива (N<100)');
Readln (N);
For i:=1 to N do begin
Write ('Введите ', i, ' элемент массива ');
Readln (mas[i]);
end;
Write ('Введите номера элементов, которые необходимо поменять местами: ');
Readln (k1, k2);
Writeln ('Исходный массив: ');
For i:=1 to N do write(mas[i], ' ');
writeln;
if (mas[k1] mod 2=0)and(mas[k2] mod 2=0) then
begin
R:=mas[k1]; mas[k1] := mas[k2]; mas[k2] := R;
end
else
begin
write('Введите ещё один номер: ');
readln(k3);
R:=mas[k3]; mas[k3] := mas[1]; mas[1] := R;
end;
Writeln ('Итоговый массив: ');
for i := 1 to N do Write (mas[i], ' ');
End.
Пример:
Введите число элементов массива (N<100)
5
Введите 1 элемент массива 12
Введите 2 элемент массива 84
Введите 3 элемент массива 37
Введите 4 элемент массива 59
Введите 5 элемент массива 20
Введите номера элементов, которые необходимо поменять местами: 2 4
Исходный массив: 12 84 37 59 20
Введите ещё один номер: 5
Итоговый массив: 20 84 37 59 12