simp программа

Ответ от Kaiu[гуру]
Может вот так тебе понравиться, не идеально, но достаточно для сдачи
{функция поиска простого числа}
function simp(var x: integer): boolean;
var
i, j: integer;
priz: boolean;
begin
if x <= 1 then {число точно не простое}
begin
simp := false;
Exit;
end;
if x < 4 then {2,3 - это простые числа, проверим на них}
begin
simp := true;
Exit;
end
else {иначе проверять будем в цикле деления на 2,3 и так далее}
begin
priz := true;
i := 2;
j := round(sqrt(x) ); {ищем до среднего геометрического}
repeat
{если делится нацело, то точно не простое}
if (x mod i) = 0 then
begin
priz := false;
break;
end;
Inc(i); {+1 и получаем следующий делитель}
until i > j; {если делитель больше среднего геометрического то выход из цикла}
simp := priz;
end;
end;
{ основная программа }
var
x, h, k, l, g: integer;
pL, pH : Boolean;
begin
write('Напишите некоторое натуральное число: ');
readln(x);
{если введено четное число}
if x mod 2 = 0 then k := 1 else k := 2;
{верхнее и нижнее число которое будем искать}
h := x + k;
l := x - k;
pL := simp(l);
pH := simp(h);
{делаем цикл поиска пока не нашли и число больше 2}
while not pL and not pH and (l>2) do
begin
{+2 пропуская четные числа которые никогда не простые}
l := l - 2;
h := h + 2;
{проверка на простоту}
pL := simp(l);
pH := simp(h);
end;
if pL then writeln('Ближайшее к нему простое число: ', l)
else if pH then writeln('Ближайшее к нему простое число: ', h)
else if pL and pH then writeln('Ближайшие к нему простые числа: ', l, ' и ', h);
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]