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

Question

Информатика

Хариесса

6 августа, 11:54

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

+4

Ответы (1)

Знаете ответ?

Петяй · Answer 1

Program z1;

uses crt;

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

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

Write ('m=') ; readln (m) ;

until (n
for i:=n to m do

begin

kd:=0;

for j:=2to i div2do

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

if kd=0then

begin

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

end;

end;

writeln;

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