Поиск простых чисел — Pascal(Паскаль)

Просто́е число́ — натуральное (целое положительное) число, имеющее ровно два различных натуральных делителя — единицу и самого себя.

Ниже показан пример поиска простых чисел до 500 на языке Pascal

const LIMIT = 500;
var i,j,lim : word;
 
begin { основная программа }
  writeln; {перевод строки, начинаем с новой строки}
  for i:=1 to LIMIT do begin
      j:=2; lim:=round(sqrt(i));
      while (i mod j <> 0) and (j <= lim) do inc( j );
      if (j > lim) then write( i,' ' );
  end;
end.

Поделитесь своим мнением или задайте вопрос