Если есть заварка, то я пойду пить чай, иначе не пойду.
Попробуй тут
http://www.bestreferat.ru/referat-8161.html
516,22₁₀=5*10²+1*10¹+6*10⁰+2*10⁻¹+2*10⁻²
² ¹ ⁰⁻¹⁻²
17,03₁₀=1*10¹+7*10⁰+0*10⁻¹+3*10⁻²
¹ ⁰⁻¹⁻²
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
Время1=60*1024*8бит/3072 бит/с=160 с
объем2=время*скорость=160с*256бит/с=40960 бит=5120 байт=5Кб