В интервале от 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