1100:11умножить100=100000
1100:10-10=100
1100:11-100=0
10мб=83886080 бит
Время=83886080 бит / 2500000 бит,сек=33,6 секунды
Const
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
end;
writeln(s);
end.
X=0;
for(i=1;i<51;i+=4)
X+=i;
S=0;
for(i=0;i<=12;i++)
S+=i*i;
S*=2;