Функция проверки простого числа

27.12.2009, 23:23. Показов 2086. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Pascal

var
n: integer;
 Function Simple (Pr : Integer) : Boolean;
 Var I : Integer; LogPer : Boolean;
Begin I := 2; {счетчик}
 Repeat
  LogPer := (Pr Mod I = 0); 
              I := I + 1
  Until (I > Pr Div 2 + 1) Or (LogPer);
 
 Simple := Not LogPer
 
  End;
begin
readln(n);
 writeln (Simple(n));
 end.

Мы вводим n. но n мы не присваиваем ни чего!!! как мы можем определить простое оно или нет???

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.12.2009, 23:23

Ответы с готовыми решениями:

функция проверки на принадлежность числа к отрезку.
Определите номера строк в матрице, в которых элементов, принадлежащих отрезку больше, чем...

Функция проверки числа на простоту
Помогите пожалуйста Написать функцию проверки числа на простату.

Для каждого числа n выведите показатель n-го по порядку простого числа Мерсенна
(Если число 2n - 1 простое, то его называют числом Мерсенна.) В первой строке дано число m (1 <= m...

Составить программу вычисления наименьшего простого числа, большего заданного числа M (М>1)
вычисления наименьшего простого числа, большего заданного числа M (М>1).

	27.12.2009, 23:23

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.12.2009, 23:23

Помогаю со студенческими работами здесь

Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции
Найти все простые числа, меньше данного числа N. Определение простого числа описать в функции

Есть ли в последовательности числа-близнецы (использовать процедуру определения простого числа)
Дана N натуральное число. между n,n+1,..,2n числами близнец числа, то есть, надо определить есть ли...

Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого числа
Найти все трехзначные простые числа. Предусмотреть наличие подпрограммы для распознавания простого...

Рекурсивная функция проверки простого числа
Не могу разобраться !! Как она вставляет в код без рекурсива?! Прошу помощи вставте эту долбанную...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх