То человечество стало не образзованное‚не нашлобы дом‚ну и тебебы не кто не помог щас (простите за неграмотность)
2 в степени i = N
N=50
i=6 бит (так как 2^5= 32, а мы должны брать с избытком)
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>