Информатика, опубликовано 2018-08-22 19:28:01 by Гость
Найдите сумму простых чисел, расположенных в интервале от числа 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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на