Найдите сумму обычных чисел, расположенных в промежутке от числа 256 до
Найдите сумму обычных чисел, расположенных в промежутке от числа 256 до числа 16384 включительно. В ответе запишите одно целое число.
Задать свой вопрос2 ответа
Альбина Станиславская
Dim k as integer ' Объявляем глобальную переменную
Sub Prog_Summa()
Dim S as long, i as long
S = 0 ' В переменной S накапливается сумма обычных чисел
for i=256 to 16384 ' цикл по всем числам, которые надо проверить
k=1 ' признак обычного числа
Prost(i) ' В функции проверяем, что число i простое
if k = 1 then S = S + i ' если i - обычное, добавляем его к S
next i
print S ' Выводим сумму S
end sub
Function Prost(x)
Dim i as long, Q as long
Prost = 0 ' Значение функции пока равно 0
Q = int(sqrt(x)) ' Q=[(x)] - предел проверки числа x на простоту
for i = 2 to Q
if int(x/i) = x/i then k=0 ' если х делится на i, то оно составное
next i
if k = 1 then Prost = x ' если x простое, то функция равна x
' Если x - составное, то функция остается одинаковой 0
End Function
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов