Как проверить простое ли число
Автор Андрей Емец задал вопрос в разделе Другие языки и технологии
Pascal => нужна идея, которая поможет мне определить : простое число или нет. и получил лучший ответ
Ответ от _]Маньячка[_[эксперт]
Program prostoe_chislo;
Var
i, x : Integer;
Begin
WriteLn('Vvedite Chislo');
ReadLn(x);
For i := 2 to (x div 2) do
Begin
If (x mod i)=0 Then WriteLn('Chislo Ne Prostoe :-(')
Else WriteLn('Prostoe Chislo! :-)');
End;
End.
Источник: Мозг+Руки+Паскаль.
Ответ от Ѐоман Малиновский[гуру]
смотря что значит, " простое или нет".
смотря что значит, " простое или нет".
Ответ от Непростой Гусь[гуру]
Уже пару тысяч лет люди думают (как минимум, ) над тем, как искать простые числа. И тебе еще нужны новые идеи? Гугл знает.
<a rel="nofollow" href="http://ru.wi
Уже пару тысяч лет люди думают (как минимум, ) над тем, как искать простые числа. И тебе еще нужны новые идеи? Гугл знает.
<a rel="nofollow" href="http://ru.wi
Ответ от Коваленко Олег[гуру]
var i,n: integer; prostoe: boolean; label skok; Begin prostoe:=true; Write('Введите число n='); Readln(n); if n<3 then goto skok; for i:=2 to n-1 do if (n mod i)=0 then prostoe:=false; s
var i,n: integer; prostoe: boolean; label skok; Begin prostoe:=true; Write('Введите число n='); Readln(n); if n<3 then goto skok; for i:=2 to n-1 do if (n mod i)=0 then prostoe:=false; s
Ответ от WishmasterMax[гуру]
вот пример из делфи, если руки не кривые переделаешь на паскаль procedure TForm1.Button1Click(Sender: TObject); var n: integer; // проверяемое число d: integer; // делитель r: integer; // остаток от деления n на d begin n := St
вот пример из делфи, если руки не кривые переделаешь на паскаль procedure TForm1.Button1Click(Sender: TObject); var n: integer; // проверяемое число d: integer; // делитель r: integer; // остаток от деления n на d begin n := St
Ответ от XXX Nobody XXX[активный]
]Маньячка [, программа не работает при вводе числа до 4-х =\ вот моя версия, кода правда много (учусь) : program chislo; var a : integer; begin writeln('Введите число'); readln(a); if (a<=3) then begin writ
]Маньячка [, программа не работает при вводе числа до 4-х =\ вот моя версия, кода правда много (учусь) : program chislo; var a : integer; begin writeln('Введите число'); readln(a); if (a<=3) then begin writ
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: Pascal => нужна идея, которая поможет мне определить : простое число или нет.
спросили в 15 декабря 358 год
ряд простых чисел
В диапазоне от 1 до 100 000 количество простых чисел равно 9593.
Просто́е число́ — это
подробнее...
ряд простых чисел
В диапазоне от 1 до 100 000 количество простых чисел равно 9593.
Просто́е число́ — это
подробнее...
спросили в Просто Простить
что такое простые числа?
Простое число — это натуральное число, имеющее ровно два натуральных делителя: 1 и само себя.
подробнее...
что такое простые числа?
Простое число — это натуральное число, имеющее ровно два натуральных делителя: 1 и само себя.
подробнее...
спросили в Зодиак
К какому знаку зодиака относится мужчина, родившийся 23 августа?
Гороскоп совместимости льва с другими знаками зодиака
Влияние планет: Солнце.
К какому знаку зодиака относится мужчина, родившийся 23 августа?
Гороскоп совместимости льва с другими знаками зодиака
Влияние планет: Солнце.
Как найти все делители числа. Например 143 или 5684. Какое правило применяется. Ведь не подбором же.
перебираешь все числа от 1 до квадратного корня из этого числа. Надо доказывать, почему до
подробнее...
Помогите плиз, хоть намекните как определить является ли данный массив магическим квадратом ( ПАСКАЛЬ)
Тупо проверить, является ли сумма элементов любой строки, любого столбца или диагонали
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Motörhead
Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать?
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
Как проверить, является ли число простым в Pascal? Хотя бы в общих чертах подскажите? Какие функции использовать?
Function prost(a:Longint): boolean; {Опиши такую функцию}
var
k: longint;
begin
как разложить на простые множетели
Брать простые числа в порядке возрастания и проверять, делится ли на них число.
например, число
подробнее...
Разложение на простые множители
Первые простые множители: 2,3,5,7,11,13 - хоть какой-нибудь из них встречается в большинстве чисел.
подробнее...
спросили в Другое
А как E-mail создать или где его взять?
В Интернет имеется много почтовых служб. Зарегистрироваться в одной из таких почтовых служб,
подробнее...
А как E-mail создать или где его взять?
В Интернет имеется много почтовых служб. Зарегистрироваться в одной из таких почтовых служб,
подробнее...
спросили в Другое
как зарегистрироваться на mail.ru
Для создания личного почтового ящика на Mail.ru Вам необходимо пройти процедуру регистрации.
как зарегистрироваться на mail.ru
Для создания личного почтового ящика на Mail.ru Вам необходимо пройти процедуру регистрации.
спросили в Другое
как создать электронную почту
Для создания личного почтового ящика на Mail.ru Вам необходимо пройти процедуру регистрации
как создать электронную почту
Для создания личного почтового ящика на Mail.ru Вам необходимо пройти процедуру регистрации
спросили в Другое Отличия
как отличить качественную подделку айфона от оригинала?
Как отличить копию iPhone от оригинала.. .
Инструкция
1
Определять
подробнее...
как отличить качественную подделку айфона от оригинала?
Как отличить копию iPhone от оригинала.. .
Инструкция
1
Определять
подробнее...
спросили в Диплом
Можно ли купить диплом о в/о с занесением в реестр?
надо понимать, что как эти дипломы "левые" и ни в каких реестрах они не числятся. Есть ВУЗы,
подробнее...
Можно ли купить диплом о в/о с занесением в реестр?
надо понимать, что как эти дипломы "левые" и ни в каких реестрах они не числятся. Есть ВУЗы,
подробнее...
спросили в Торрент
как правильно качать через ТОРРЕНТ!!!
Торренты.. .
Для начала:
1. Скачиваете программу-клиент µTorrent
отсюда:
подробнее...
как правильно качать через ТОРРЕНТ!!!
Торренты.. .
Для начала:
1. Скачиваете программу-клиент µTorrent
отсюда:
подробнее...
спросили в Техника Топливо
Можно ли в домашних условиях определить наличие воды и её количество в мазутном топливе?? . И, если можно, то как??
Как проверить качество дизельного топлива?
Надежность и долговечность техники очень
подробнее...
Можно ли в домашних условиях определить наличие воды и её количество в мазутном топливе?? . И, если можно, то как??
Как проверить качество дизельного топлива?
Надежность и долговечность техники очень
подробнее...