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
700*1024*8/16/32000=11,2 сек
6300*1024*8/16/32000=100сек
Возможно я не прав но вот
а) 111101
б) 010111
в) 111011010
г) 100000
(1г /\ Пс) --> 3c = не(1г /\ Пс) \/ 3c = не(1г) \/ не(Пс) \/ 3г = 1с \/ Пг \/ 3г
1с: <span>Марс
Пг: </span><span>Облако
3г: </span><span>Энот
Ответ: </span><span>Экран.
На проверку?!?</span>