Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные
2
входные данные
6
выходные данные
2
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные
2
входные данные
6
выходные данные
2
Answers & Comments
Verified answer
//Pascal ABC.NET 3.1 сборка 1256Var
x,i:integer;
begin
readln(x);
i:=2;
while x mod i<>0 do
i:=i+1;
writeln(i);
end.
Пример ввода:
15
Пример вывода:
3