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

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

//PascalABC.NET 3.2 сборка 1318

Var
  i,j,b,c:integer;
begin
c:=0;
for i:=256 to 16384 do
begin
b:=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