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?
  • Вопрос задан
  • 44 просмотра
Пригласить эксперта
Ответы на вопрос 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
Вы издеваетесь?
if IsPrime(10) then
  Writeln('Простое')
else
  Writeln('Составное')
Ответ написан
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы
Сбер Санкт-Петербург
от 200 000 ₽
Сбер Санкт-Петербург
До 350 000 ₽
Сбер Москва
от 180 000 до 220 000 ₽
10 июн. 2023, в 04:04
4000 руб./за проект
10 июн. 2023, в 01:43
6500 руб./за проект
10 июн. 2023, в 00:17
5000 руб./за проект