program 1qq;
var c,b,n,a:integer;
begin
readln(n);
readn(a);
b:=0;
c:=a;
while b<n do begin
b:=b+1;
if a mod 19 = 0 and a mod 23 = 0 then writeln(a);
a:=a+1;
end;
writeln('KONEC');
end.
Uses Crt;
var E, F, X, Y, Z: real;
bol: boolean;
begin
ClrScr;
Write(' E = '); ReadLn(E);
Write(' F = '); ReadLn(F);
Write(' X = '); ReadLn(X);
Write(' Y = '); ReadLn(Y);
Write(' Z = '); ReadLn(Z);
bol:=(X>=E) and (X<=F) and (Y>=E) and (Y<=F) and (Z>=E) and (Z<=F);
if bol=true then Writeln (' Принадлежат !!!')
else WriteLn (' Нет...');
ReadLn;
end.
Во-первых нам нужны только четное количество цифр в двоичном числе, если учесть максимальное 25160=110001001001000, т.е. мы идем от 2 до 14 цифр через 2.
1 цифра всегда единица. значит остается n нулей и n-1 единиц. Теперь по формуле перестановки с повторениями(можешь почитать в инете), вычисляем последовательно:
1) 2 цифры = 1 вариант
2) 4 цифры = 3 варианта
3) 6 цифры = 10 варианта
4) 8 цифры = 35 варианта
5) 10 цифры = 126 варианта
6) 12 цифры = 462 варианта
7) 14 цифры = 1716 варианта
сложим и получим 2353 варианта.