Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.

@beka91 · Регистрация: 13.12.2009

Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.

Решить задачу с использование вложенного цикла!

@Puporev · 06.01.2010, 14:25

Pascal

Например так.
uses crt;
var
a : array [1..5000] of boolean;
n,x,y : integer;
begin
clrscr;
write('n=');readln(n);
a[1] := false;{число 1 не простое}
for x:=2 to N do a[x] := true; {пока все считаем простыми}
for x:= 2 to N div 2{round(sqrt(N))} do
for y:= 2 to N div x do {перебираем все возможные произведения}
a[x*y] := false;{это составное}
for x:=1 to N do {вычеркиваем его}
if a[x] then write(x,' ');{что осталось, выводим}
readln;
end.

@beka91 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 50
		1
	Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена. 06.01.2010, 14:08. Показов 2794. Ответов 1 Метки нет (Все метки) Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена. Решить задачу с использование вложенного цикла! 0

Опции темы

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.

Решение