38

Pascal, вывести количество простых чисел от n до m где n> 2, а m<30000. С объяснением

20 февраля 2023

Pascal, вывести количество простых чисел от n до m где n> 2, а m<30000. С объяснением

категория: информатика

71

varm,n,i,j: integer; bool: boolean; beginreadln (n,m); //читаем Н и Мfor i: =n to m do begin // От Н до М выполняем циклbool: =false; // Обнуляем переменную для каждой итерации for j: =2 to i-1 do begin // Проверяем, делится ли число на числа, которые находятся в промежутку от 2 до это число -1 if (i mod j=0) then bool: =true; //если делится, тогда bool: =true end; if (bool=false) then write (i,'); //если bool=false, значит это число делится только на себя и на 1, а значит оно простое и выводим это числоend; end.

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

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...