Var
n, i, k: integer;
f: boolean;
begin
readln(n);
f := false;
for i := 1 to n do
begin
k := Random(100);
f := f or (k mod 4 = 0);
end;
writeln(f);
end.
Количество информации вычисляется по формуле log(2)10≈3,32
70×16=1120 бит в 1 строчке. 1120×70=78400 бит в 1 странице . 78400×4=303600 бит в 4 страницах
Ответ к данной задаче и ей подобных будет:
255-2x=133
S:=1;
N:=1;
For i:=2 to n do s:=s+1/i; S: = 1+1/2 = 1,5