..

Информатика visibility 72 просмотров

Вопрос:

Дан интервал натуральных чисел от N до М. Определить все простые числа в этом интервале

Ответы и объяснения от Мегамозга

Мегамозг

Program z1;uses crt;var n,m,kd,i,j,s:integer;beginrepeatwrite(‘n=’);readln(n);Write(‘m=’); readln(m);until(n<m); 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.

Ответить на вопрос