Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале (Паскаль АВС)

Question

Информатика

Христина

15 марта, 06:14

Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале (Паскаль АВС)

+4

Ответы (1)

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

Викторка · Answer 1

Program z1;

uses crt;

var n, m, kd, i, j, s : integer;

begin repeat write ('n=') ; readln (n) ;

W rite ('m=') ; readln (m) ;

until (n
for i : = n to m do

begin

k d : = 0;

for j : = 2 to i div 2 do

if i mod j = 0 then inc (kd) ;

if kd = 0 then

begin

write (i, ' ') ; inc (s) ;

end;

end;

writeln;

writeln ('Всего ', s) ; end.