Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000).
Входные данные
Вводится натуральное число x.
Выходные данные
Выведите наименьший делитель числа x, отличный от 1.
Примеры
входные данные
2
выходные данные
2
входные данные
6
выходные данные
2
Ответы
Ответ дал:
0
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var
i,x:integer;
found:boolean;
begin
Read(x);
found:=false;
for i:=2 to x div 2 do
if x mod i=0 then begin Write(i); found:=true; break end;
if not found then Write(x)
end.
var
i,x:integer;
found:boolean;
begin
Read(x);
found:=false;
for i:=2 to x div 2 do
if x mod i=0 then begin Write(i); found:=true; break end;
if not found then Write(x)
end.
Ответ дал:
0
//Pascal ABC.NET 3.1 сборка 1256
Var
x,i:integer;
begin
readln(x);
i:=2;
while x mod i<>0 do
i:=i+1;
writeln(i);
end.
Пример ввода:
15
Пример вывода:
3
Var
x,i:integer;
begin
readln(x);
i:=2;
while x mod i<>0 do
i:=i+1;
writeln(i);
end.
Пример ввода:
15
Пример вывода:
3
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад
10 лет назад