Помогите сделать решето от 1 до 100: 1) выписать все натуральные
Помогите сделать решето от 1 до 100: 1) выписать все естественные числа от 1 до 100; 2) вычеркнуть 1; 3) выделить наименьшее из неотмеченных чисел; 4) вычеркнуть все числа, кратные подчеркнутому на предыдушем шаге;5) если в перечне имеются неотмеченные числа, то перейти к шагу 3, в неприятном случае все подчёркнутые числа - обыкновенные. Очень безотлагательно!
Задать свой вопрос1 ответ
Gubatova Uljana
Var
i,j,n:integer;
a:array[1..1000] of boolean;
begin
Write('Введите верхнюю границу чисел (до 1000): ');
Read(n);
for i:=1 to n do a[i]:=True;
i:=2;
while sqr(i)lt;=n do begin
j:=sqr(i);
if a[i] then
while jlt;=n do begin a[j]:=False; j:=j+i end;
Inc(i)
end;
for i:=1 to n do
if a[i] then Write(i,' ')
end.
Тестовое решение:
Введите верхнюю границу чисел (до 1000): 100
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
i,j,n:integer;
a:array[1..1000] of boolean;
begin
Write('Введите верхнюю границу чисел (до 1000): ');
Read(n);
for i:=1 to n do a[i]:=True;
i:=2;
while sqr(i)lt;=n do begin
j:=sqr(i);
if a[i] then
while jlt;=n do begin a[j]:=False; j:=j+i end;
Inc(i)
end;
for i:=1 to n do
if a[i] then Write(i,' ')
end.
Тестовое решение:
Введите верхнюю границу чисел (до 1000): 100
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97
Виталик Шпанко
А это теснее Ваши трудности, надобно было предмет учить!
Евгения Шембякова
Русским языком Вы сами написали в условии. А тут пишут либо программы, или составляют методы. Вы попросили "сделать решето" - Вы его получили: программу, реализующую метод "решето Эратосфена".
Светлана Штединг
Еще раз: здесь не дополнительные занятия для воспитанников вашего класса. Это Сервис, предназначенный для выполнения заданий. Вы дали задание и получили решение в полном соответствии с написанным Вами.
Oleg Gapasov
Вот так и пишите в следующий раз - что конкретно Вы хотите созидать, получать и т.д. Учитесь формулировать свои вопросы четко!
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов