Const m=1000;
var
a:array[1..m] of integer;
n,i,p,k,j:integer;
begin
write('n = '); readln(n);
i:=0; p:=1;
while p<n do
begin
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
if k=0 then begin i:=i+1; a[i]:=p; end;
p:=p+1;
end;
for j:=1 to i do write(a[j],' ');
writeln;
end.
Пример:
n = 100
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
На СИ Java PHP и бывают C++
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>
Что такое информация - это философский вопрос. Информация - это физическая субстанция, которую можно померять. Информация тесно связана с таким понятием, как вероятность - вероятность события.
Информация - это всё новое, неизведанное, всё, что может быть использовано для осознанного действия - действяи по улудшению своего состояния в этом мире.
Информация пропорциональна вероятности того, что событие произойдёт. При чём, чем больше вероятность, темменьше информации.
Тоесть I~1/P
Но информация должна обладать эффектом аддитивности. Тоесть информация о суммарном событии должна быть равна сумме информация о каждом из (независимых!!!) событий:
I(Q1*Q2)= 1/P(Q1*Q2) = 1/(P(Q1) * P(Q2)) не равно I(Q1)+I(Q2)
Что бы добиться равинства, надо взять логорифм:
I(Q1*Q2) = I(Q1) + I(Q2) = log(1/(P(Q1) * P(Q2))) = log(1/P(Q1)) + log(1/P(Q2)) = -log(P(Q1)) - log(P(Q2))
Основание логорифма определяет единицу измерения информации. Если основание "2", то единица измерения "бит".
Таким образом мы определяем что такое 1 бит информации:
1 = log2(P(Q)) => P(Q) = 1/2
1 бит - это информация о событии, вероятность которого равна 1/2.
165*165/8/1024 = 3,3233642578125
4 кбайт / 3,3233642578125 = 1,2035996326905417814508723599633 бит на пиксель.
2^1,2035996326905417814508723599633 = ~ 2 цвета