<span>X -переменная с реальным типом.А у тебя она integer.
</span>
8.
Так как при x∈Р и х∉Q, т.е. на промежутках [3;6] и [12;20], не зависимо от промежутка А функция будет равна 1.
Остается вторая часть, т.е. х∉А (или иначе ¬(х∈А)). Значит А должно совпадать либо с промежутком <span>[3;6], либо с [12;20]. Первый промежуток имеет длину 3, второй - 8. Выбираем наибольший, т.е. 8.</span>
2000*8=16000 бит первая страница.
8386608*8=67092864 остальные
67092864+16000=67108864 бит вся книга
67108864:8:1024:1024= 8 МБ
Procedure CKR(var M,N:integer);
Var d:integer;
Begin
if M>N then d:=N
else d:=M;
While d>1 do
Begin
if (M mod d = 0)and(N mod d = 0) then
Begin
M:=M div d;
N:=N div d;
if M>N then d:=N
else d:=M
End;
d:=d-1
End;
End;
Var M,N:integer;
Begin
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
CKR(M,N);
WriteLn(M,'/',N);
End.