Var
i, j: longint;
b: boolean;
begin
b := true;
for i := 1000 to 9999 do
begin
for j := 2 to i - 1 do
begin
if(i mod j = 0) then
begin
b := false;
break;
end;
end;
if(b = true) then writeln(i);
b := true;
end;
end.
Измерение информации: Количество символов * вес одного символа. В данном предложении 82 символа. Удаляем все встретившиеся дважды символы и получаем (фигура, боквыен-тйльсмпд) (24 символа, значит ближайшая мощность алфавита 2 в 5 степени, т.е. 32) 5 бит вес одного символа. Вес предложения равен = 82 * 5 = 410 бит
1)33554432:8:1024:1024=4 Гб
И это, к сожалению, все, что Я знаю XD
Компьютер ,который подключается в сеть Процессор