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

Question

Информатика

Сюра

9 февраля, 04:08

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

+3

Ответы (1)

Знаете ответ на вопрос?

Саверий · Answer 1

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