Здравствуйте, [b]Заболотских Татьяна Сергеевна![/b]В приложении находится пример. Функция isSimple(Integer) возвращает True, если число простое и False в ином случае.
Список первых 500 простых чисел для проверки примера можно найти здесь:
Список простых чиселУдачи!Приложение:
program Q145236;
{Функция возвращает True, если N простое число и False в ином случае}
function isSimple(const N: Integer): Boolean;
var
i, k: Integer;
p: Boolean;
begin
{Инициализация}
isSimple:= False;
p:= True;
i:= 2;
k:= N;
{Если число меньше двух, оно не простое}
if (N < 2) then
Exit
{Двойка - простое число}
else if (N = 2) then
begin
isSimple:= True;
Exit;
end
else
while ((i < k) and p) do
begin
{Проверяем остаток деления}
p:= not (N mod i = 0);
k:= N div i + 1;
Inc(i);
end;
{Результат}
isSimple:= p;
end;
var
a: Integer;
begin
{ Ввод числа }
write('a = '); ReadLn(a);
{ Вывод результата }
if isSimple(a) then
{ Простое }
WriteLn('Simple')
else
{ Не простое }
WriteLn('Not simple');
{Ожидание нажатия пользователем любой кнопки}
WriteLn;
WriteLn('Press any key...');
ReadLn;
end.