Var a,b,d,K,kp:integer; P:boolean; Begin kp:=0; ReadLn(a,b); if (a = 1)or(a = 2) then Begin kp:=2; Write(2,' ',3) end else if a = 3 then Begin kp:=1; Write(3); End; if a < 5 then a:=5 else if a mod 2 = 0 then a:=a+1; While a<=b do Begin K:=Trunc(Sqrt(A)); d:=3; P:=true; While d <= K do Begin if A mod d = 0 then P:=false; d:=d+2 End; if P then Begin kp:=kp+1; Write(' ',a); End; a:=a+2 End; if kp = 0 then Write(0) End.
a,b,d,K,kp:integer;
P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
Begin
kp:=2;
Write(2,' ',3)
end
else if a = 3 then
Begin
kp:=1;
Write(3);
End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
Begin
K:=Trunc(Sqrt(A));
d:=3;
P:=true;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
if P then
Begin
kp:=kp+1;
Write(' ',a);
End;
a:=a+2
End;
if kp = 0 then Write(0)
End.
Для этого представим кол-во ьукв в алфавите в степени числа два
16=2^4 => i= 4 бита
Так же для второго:
256 = 2^8 =>i= 8бит
Кол-во символов одиннаковое, составим отношение алфавитных подходов
(K)
n*i/ n * i. n сокращаем.
8/4= 2 Разница в два раза.
Для письменной работы:
Дано:
K1=K2
N1=16
N2=256
I1/I2-?
Решение:
N=2^i
16=2^4 => i= 4 бита
256 = 2^8 =>i= 8бит
I(Инф. обьес всего файла)= K*i
I1/I2= K 1i / K 2i. K сокращаем
1i / 2i
4/8= 2. (Большое на меньшее делить надо)
В два раза кол-во инфооиации во втором тексте больше, чем в первом