Найдите сумму простых чисел, расположенных в интервале от числа 256 до числа 16384 включительно. В ответе запишите одно целое число.

//PascalABC.NET 3.2 сборка 1318Var  i,j,b,c:integer;beginc:=0;for i:=256 to 16384 dobeginb:=1;  for j:=2 to i div 2 do    if i mod j=0 then       begin        b:=0;        break;      end;if b=1 then c+=i;end;writeln(c);end.Вывод:14578560

Dim k as integer ' Объявляем глобальную переменнуюSub Prog_Summa()Dim S as long, i as longS = 0 ' В переменной S накапливается сумма простых чиселfor i=256 to 16384 ' цикл по всем числам, которые надо проверить    k=1 ' признак простого числа    Prost(i) ' В функции проверяем, что число i простое    if k = 1 then S = S + i ' если i - простое, прибавляем его к Snext iprint S ' Выводим сумму Send subFunction Prost(x)Dim i as long, Q as longProst = 0 ' Значение функции пока равно 0Q = int(sqrt(x)) ' Q=[√(x)] - предел проверки числа x на простотуfor i = 2 to Q    if int(x/i) = x/i then k=0 ' если х делится на i, то оно составноеnext iif k = 1 then Prost = x ' если x простое, то функция равна x' Если x - составное, то функция остается равной 0End Function