В чём ошибка?
type st = set of -32768..32767;
var
a:array[1..100,1..100]of integer;
v:array[-10000..10000]of boolean;
el,k,n,i,j,l,h,k_str,g:integer;
b:st;
begin
writeln('Введите количество строк или столбцов квадратной матрицы: ');
readln(n);
writeln('Введите матрицу: ');
for i:=1 to n do
begin
v[i]:=false;
for j:=1 to n do read(a[i,j]);
end;
writeln();
k:=0;b:=[];g:=0;
for i:=1 to n do
for j:=1 to n do begin
if not(a[i,j]in b)then
begin
for l:=1 to n do
for h:=1 to n do if(a[l,h]=a[i,j])then begin inc(k);if(l mod 2 = 0)then inc(k_str);end;
if(k<>0)then writeln('Элемент: ',a[i,j]:5,' Всего: ',k:5,' На чётных строках: ',k_str);
if(k_str=k)and(k>1)then begin inc(g); v[a[i,j]]:=true; end;
k:=0;k_str:=0;
b:=b+[a[i,j]];
end;
end;
writeln();
if(g<>0)then
begin
writeln('Повторяющиеся элементы, расположенные только на чётных строках: ');
for i:=1 to n do
for j:=1 to n do if(v[a[i,j]])then begin write(a[i,j],' ');v[a[i,j]]:=false; end;
end
else writeln('Ни один повторяющийся элемент не расположен только на чётных строках!');
end.
Представим числа 256^2 и 4096^2 как набор ноликов и единичек, т.е в двоичной системе:
256^2=2^16=100000...(16 нулей)
4096^16=2^192=10000...(192 нуля)
Теперь, чтоб найти результат, нужно просто вычесть 15 из 2^16, вычитаем, получаем 1111111111110001
Складываем это число с 2^192, все очень просто, тут идет обыкновенная дизъюнкция:
1000...(176 нулей)1111111111110001
Зная, что F(15) в двоичной системе счисления это 1111, просто находим эти 1111
1111 1111 1111 0001 - 3 набора единичек
ответ: 3
В док-во приведу это число в шестнадцатеричной системе, переведенное машиной:
100000000000000000000000000000000000000000000fff1
from itertools import *
m = 0
p = 0
for i in range(2,5):
n = 0
word = product('ИА',repeat=i) ## i -это кол-во символов в слове
for letter in word:
if letter.count('И') <3 and letter.count('А') <3:
n += 1 ##кол-во слов, где каждая гласная встречается не более двух раз
if i !=2:
p +=n ## кол-во слов длиной более двух символов без согласных
m+=n*2 ## кол-во слов длиной более двух символов с 2мя согласными вначале слова
print(m+p)
Объяснение:
надеюсь питон знаешь,мб можно и короче написать