В интервале от k1 до k2 найти количество простых чисел. Паскаль

В интервале от k1 до k2 найти количество простых чисел. Паскаль
Гость
Ответ(ы) на вопрос:
Гость
var k1,k2,k,i,m,j:integer; begin write('k1, k2:'); readln(k1,k2); k:=0; for i:=k1 to k2 do  begin  m:=0;  for j:=2 to round(sqrt(i)) do   if i mod j = 0 then m:=m+1;  if m=0 then k:=k+1;  end; writeln('k = ',k); end. Пример: k1, k2:10 100 k = 21
Не нашли ответ?
Ответить на вопрос
Похожие вопросы