Помогите 1 задание пожалуйста плиииис ребяткиии
Помогите 1 задание пожалуйста плиииис ребяткиии
Ответ(ы) на вопрос:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var m,i,j,k: integer; begin write('m='); readln(m); for i:=2 to m do begin if(i>2)and(i mod 2=0) then continue;//пропускаем все четные, больше 2 //проверяем на простоту нечетные j:=3; k:=0; while (j*j<=i)and(k=0) do if i mod j=0 then k:=1//если делится, не простое else inc(j,2); //иначе проверим следующее if k=0 then write(i,' ');//если простое, выводим end; end.
Не нашли ответ?
Похожие вопросы