Var i : integer; p:int64;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
<span>end.</span>
<span>1байт = 8бит.</span>
<span>Значит, 1024бит =128байт.</span>
<span> </span>
<span>Если текст начинается с 10 байта, то закончится на 128+10 = 138байт.</span>
Var a,b,s,i:integer;
begin
writeln('a, b:');
readln(a,b);
s:=0;
for i:=a to b do
if i mod 4=0 then s:=s+i;
writeln('s = ',s);
end.
Пример:
<span>a, b:
20 100
s = 1260</span>