Старый друг лучше двух новых
Ответ:
p:=random(...)+...
Объяснение:
... - это интервал который тебе нужен
K= 2048*64*32=4194304бит
v = 16кб.
t-?
------------------
N=2^i
t=I/v
t=(k*i)/v=4194304i/131072 = 32i
При переводе числа 10101011 из 2-ной в 10-ую:
171
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.