Дано натуральное число N. Найти ближайшее к нему простое число.

Question

Информатика

Кирик

7 сентября, 14:55

Дано натуральное число N. Найти ближайшее к нему простое число.

+2

Ответы (1)

Знаете ответ?

Фемистокл · Answer 1

Var n, i: integer;

priz: boolean;

begin

write ('n = ') ; readln (n) ;

repeat

priz:=true;

for i:=2 to round (sqrt (n)) do

if n mod i=0 then

begin

priz:=false;

break;

end;

if priz then write (n)

else inc (n) ;

until priz;

end.

n = 121

127