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

Question

Информатика

Мироныч

1 января, 10:34

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

+4

Ответы (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