Question

ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!!
Дано простое число. Найти следующее за ним простое число. сделать проверку на простое число и если это непростое число вывести сообщение, "Это число не является простым, повторите попытку"Программа Паскаль

Answer 1

Ответ:

function func(a: integer): boolean;

var

b,c: integer;

begin

b := 2; c := round(sqrt(a));

while ((a mod b) = 0) and (b <= c) do b := b+1;

func := (b > c)

end;

var a,d,i: integer;

begin

writeln('Введите простое число:');

readln(a);

d :=0;

for i := 2 to a div 2 do  

if a mod i = 0 then  

d := d + 1;

if d <> 0 then writeln('Это число не является простым, повторите попытку!');

repeat

a := a+1;

until func(a);

writeln('Следующее простое число: ', a);

end.