Пункт главного меню с которого есть доступ к программам установленным на компьютере 59 : )
111
149
Ответы на вопрос:
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)< =n do begin j: =sqr(i); if a[i] then while j< =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
Популярно: Информатика
-
frossbaf27.05.2020 19:53
-
DestroyMe29.06.2020 05:18
-
Лиана89123.03.2021 04:30
-
Амишка5129.01.2020 05:19
-
5Юра111111101.12.2022 18:20
-
ТупицаТян06.09.2022 08:38
-
martinovvanya210.01.2020 03:54
-
Kristino4kaMiy14.02.2023 03:25
-
ижепгпгаоуынсшыечто23.08.2021 23:10
-
kurroro30.04.2022 19:13