Семь раз получаем остаток от деления на 10 и делим число на 10, тип числа целый, чтобы при каждом делении было округление
int n = ЧИСЛО;
int a[7];
for (int i = 0; i < 7; ++i) {
a[i] = n % 10;
n /= 10;
}
Var x : array[1..100] of integer;
n,i,s,b : integer;
begin
write('n = ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
end;
writeln;
s:=0;
for i:=1 to n div 2 do
begin
b:=x[i]; x[i]:=x[n+1-i]; x[n+1-i]:=b;
end;
for i:=1 to n do
begin
write(x[i],' ');
if i mod 2 = 0 then s:=s+x[i];
end;
writeln;
writeln('s = ',s);
end.
Пример:
<span>n = 6
Исходный массив:
x[1]=12
x[2]=54
x[3]=71
x[4]=30
x[5]=47
x[6]=29
29 47 30 71 54 12
s = 130</span>
Файлы:
1. primera.dat
2. primera.doc
3. merchant.doc
4. k-mer.doc
5. omerta.doc
6. Temerlan.docx
1) *mer?.doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву.
Будет отобрано только файл 2.
2) ?*mer?.doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. Если в прошлом случае был 1 файл, то и в этом не больше одного.
3) *mer*?.doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. Отберутся файлы 2, 3, 5 - три файла.
4) *?mer*?.doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. Будут отобраны файлы 2 и 5.
Ответ. 3.
Выбираю строчка где F=1 и записываю через переменные сумму произведений соответствующих строк
если 0-пишу не х, если 1-то пишу х
c у так же
тогда не х * не у + не х * у = (не у + у) * не х = 1 * не х = не х