Правда Котов не помог
, но сам допетрил вот до этого алгоритма
:
var n,p,i,j,k:longint;
procedure prost;
begin j:=0;
for i:=1 to n do begin
if n mod i = 0 then j:=j+1;
if j>2 then break;
end;
if j=2 then write(i:10);
end;
begin
write('Vvedi granicu diapazona: '); readln(k);
for n:=1 to k do prost;
readln;
end.
Критикуйте, если есть что???!!!!
а!!!...
во первых, алгоритм остался
почти тот же, реализация тока лучше
вот если заменить, проверку, вместо n, до sqrt(n)... и бежать от 2(а не от 1)
и выход не при j>2, а при j>0 то уже лучше...
НО! сложность будет N*log(N), что правда уже неплохо)), но сё равно в раз 100 медленнее чем у меня,
(хотя уже тот факт что 100 это константа , радует)
а сл-но опять N*N, и опять ~115 суток при n = 10^8
ты бы думалку включил)
вперед читать основы, и попроси своих преподов расказть тебе про сложность алгоритмов, а то умрёшь в неведении...
рано тебе еще задачи на графы решать)
а мы посмотрим...
: 2 Далее» Все Вниз