Как проверить простое ли число
Автор Андрей Емец задал вопрос в разделе Другие языки и технологии
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 => нужна идея, которая поможет мне определить : простое число или нет.