Вопрос по информатике:
Напишите программу, которая находит все простые числа в диапазоне от 2 до N двумя разными способами:
а) проверкой каждого числа из этого интервала на простоту;
б)используя решето Эратосфена
срочно надо, пожалуйста!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.10.2015 12:32
- Информатика
- remove_red_eye 6115
- thumb_up 18
Ответы и объяснения 1
p,pr:set of byte;
function prost(n:integer):boolean;
var j,m:integer;
begin
m:=0;
for j:=2 to trunc(sqrt(n)) do
if n mod j = 0 then inc(m);
prost:=m=0;
end;
begin
readln(n);
writeln('1:');
for i:=2 to n do
if prost(i) then write(i,' ');
writeln;
writeln('2:');
p:=[2..n]; pr:=[];
k:=2;
repeat
while not(k in p) do k:=k+1;
pr:=pr+[k];
i:=k;
repeat
p:=p-[i]; i:=i+k;
until i>n;
until p=[];
for i:=2 to n do
if i in pr then write(i,' ');
writeln;
end.
Пример:
40
1:
2 3 5 7 11 13 17 19 23 29 31 37
2:
2 3 5 7 11 13 17 19 23 29 31 37
- 16.10.2015 18:46
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.