kan3k1k3n
@kan3k1k3n

Как сделать проверку числа на простоту?

у меня есть модуль на паскале, который делает проверку числа на простоту. если возвращается true, то значит число просто, иначе составное.
unit modul1;
INTERFACE
Function isPrime(n: integer): boolean;
IMPLEMENTATION
Function isPrime(n: integer): boolean; {Функция проверки числа n, n > 1, является ли n-e число - простым}
 Var i: Integer;
  flag: Boolean; {flag - true, n-e число - простое, false - составное}
 Begin
   flag:= True; {Предположение, что n-e число - prime}
   for i:= 2 to (n div 2) do
     if (n mod i = 0) then
       flag:= False;
       isPrime:= flag;{возврат true/false}
 End;
end.


как сделать, чтобы еще выводилась фраза "число простое", если значение true, и "число составное", если значение false?
  • Вопрос задан
  • 146 просмотров
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Вы издеваетесь?
if IsPrime(10) then
  Writeln('Простое')
else
  Writeln('Составное')
Ответ написан
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы