Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>
Строится двоичная запись числа N вроде
(B v C & F & C & B) v !F = B v !F
В скобках B v C & F & C & B = B & (1 v C & F & C) = B
A & B v !(A & !B) = A & B v !A v B = B & (A v 1) v !A = B v !A
Var a, b, n, i:integer;
s :array [1..10] of integer;
begin
read (n);{Размер массива}
for i:=1 to n do
begin
s[i]:=-50+random(99);
write (s[i],' ');
end;
end.
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>