Сделать решето от 1 до 100: 1) выписать все натуральные числа от 1 до 100; 2) вычеркнуть 1; 3) подчеркнуть наименьшее из неотмеченных чисел; 4) вычеркнуть все числа, кратные подчеркнутому на предыдушем шаге; 5) если в списке имеются неотмеченные числа, то перейти к шагу 3, в противном случае все подчёркнутые числа - простые. !

124

228

Посмотреть ответы 2

Ответы на вопрос:

simpleam

Информатика

4,6(29 оценок)

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

Крис5942314613

Информатика

4,6(94 оценок)

Option Explicit

Private Sub Command1_Click()

Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Single

A = InputBox("A= ")

B = InputBox("B= ")

C = A + B

D = A - B

E = Abs(A) / Abs(B)

MsgBox C

MsgBox D

MsgBox E

Debug.Print C

Debug.Print D

Debug.Print E

End Sub

'A = 5

'B = -8

'C = -3

'D = 13

'E = 0.625

Объяснение:

Надеюсь подойдет давно не писал на нем

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.