Pascal ABC Процедуры и функции Разработать программу, решающую пример. сумму кубов чисел a, b, c, если - id1309135420220414 от OlyaKasyanenko28 14.04.2022 08:07

Question

Информатика: Pascal ABC Процедуры и функции Разработать программу, решающую пример. сумму кубов чисел a, b, c, если a=9.8 arctg^2 |e^2x^3-0.25|; b=lg^3(5.3x); c=cos^3(9|x-y|)/5*x*y Исходные данные, которые нужно ввести через клавиатуру: x=1.17 y=28 ответ должен получится: 12062

OlyaKasyanenko28 · Accepted Answer

Алг
нач
цел Кол_во=256, логтаб Матрица[1:Кол_во] цел Число,j

Матрица[1]:=нет
нц для Число от 2 до Кол_во
Матрица[Число]:=да
кц
нц для Число от 2 до div(Кол_во,2)
нц для j от 2 до div(Кол_во,Число)
Матрица[Число*j]:=нет
кц
кц
нц для Число от 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 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251

Напишите,, алгоритм в программе кумир, при котором выведется решето эратосфена.

Напишите,, алгоритм в программе кумир, при котором выведется решето эратосфена.

MOGZ ответил