ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!!
Дано простое число. Найти следующее за ним простое число. сделать проверку на простое число и если это непростое число вывести сообщение, "Это число не является простым, повторите попытку"Программа Паскаль
Ответы
Ответ дал:
4
Ответ:
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад