Пожаловаться
- 25.12.2016 22:25
- Информатика
- remove_red_eye 7802
- thumb_up 46
Ответы и объяснения 1
//Алгоритм: Решето Эратосфена
const n=1000;
var
i, j, count: integer;
b: array[1..n] of boolean;
begin
count:=0;
for i:=1 to n do b[i]:=false;
for i:=2 to n do
if not b[i] then
begin
inc(count);
//write (i, '; ');
j:=1;
while (i*j<=n) do
begin
b[i*j]:=true;
inc(j);
end;
end;
write (count);
end.
const n=1000;
var
i, j, count: integer;
b: array[1..n] of boolean;
begin
count:=0;
for i:=1 to n do b[i]:=false;
for i:=2 to n do
if not b[i] then
begin
inc(count);
//write (i, '; ');
j:=1;
while (i*j<=n) do
begin
b[i*j]:=true;
inc(j);
end;
end;
write (count);
end.
Пожаловаться
- 26.12.2016 13:20
- thumb_up 46
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы