Простые числа

[werser]

Может пожалуйста помочь с суммой простых чисел на интревале от 2 до 50 ? Пожауйста срочно нада, или хотя б условие простого числа?

[Rembo]

werser, простое число - целое положительное число, большее, чем единица, не имеющее других делителей, кроме самого себя и единицы: 2, 3, 5, 7, 11, 13,...
На каком языке тебе нужно это сделать?

[Игорь007]

Перед тем как задавать вопрос не ленитесь поискать свой ответ в поисковике (например в google) или на этом же форуме.

Посмотреть можете здесь. А вообще на эту тему инфы много. Если уж ничего не найдете или не разберетесь, тогда еще раз объесним.

[werser]

Турбо Паскаль

[Rembo]

Сообщение от werser

Турбо Паскаль

Нет, к сожалению этот язык не изучал. Подумайте немного мозгами, задача вроде легкая. Тем более, Я вам дал определение слову "Простое число". На этом определении придумайте как бы формулу и запустите все это в цикле. Удачи.

[WOLFak]

вводятся два числа - интервал для суммы простых чисел входящих в них

var
 a,p:array[1..100000]of longint;
 top,q,i,j,n1,n2,s:longint;

procedure FileO;
begin
 assign(input,'in.in'); reset(input);
 assign(output,'out.out'); rewrite(output);
end;

procedure FileC;
begin
 close(output);
  close(input);
end;

begin
 FileO;
 read(n1,n2);
 top:=1;
 p[top]:=2;
 i:=3;
 q:=0;
 while i<=n2 do
  begin
   inc(q);
   a[q]:=i;
   inc(i,2);
  end;
 for i:=1 to q do
  begin
   if a[i]=0 then
    continue;
   inc(top);
   p[top]:=a[i];
   j:=i+a[i];
   while j<=q do
    begin
     a[j]:=0;
     inc(j,a[i]);
    end;
  end;
  s:=0;
 for i:=1 to top do
  if n1<=p[i] then
   begin
    for j:=i to top do
     s:=s+p[j];
    writeln(s);
    break;
   end;
  { writeln('----');
   for i:=1 to top do
    writeln(p[i]);   это если нада вывод простых чисел от 1 до n2 }
 FileC;
end.

[puporev]

Вот нормальный короткий код, без причуд.

uses crt;
var i,sum:integer;
function Prost(n:integer):boolean;
var i:integer;
begin
  for i:=2 to (n div 2) do
  if n mod i=0 then
     begin
       Prost:=false;
     end;
end;
begin
clrscr;
sum:=0;
for i:=2 to 50 do
if Prost(i)then
   begin
    writeln(i);
    sum:=sum+i;
   end;
writeln('Summa prostyh chisel ot 2 do 50 =',sum);
readln
end.

[WOLFak]

интересно чья быстрее?
я имею ввиду нетока на 2..50


P. S. Простите за файлы и за длинный код))

[puporev]

Исходить нужно из поставленной задачи и не надо стрелять из пушки по комарам. А зачем Вы приплели файл, о котором нет ни слова в условии, я вообще не понял.