Question

Найдите самый маленький натуральный делитель числа x, отличный от 1 (2 <= x <= 30000). Входные данные Вводится натуральное число x. Выходные данные Выведите наименьший делитель числа x, отличный от 1. Примеры входные данные 2 выходные данные 2 входные данные 6 выходные данные 2

Answer 1

// 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.

Answer 2

//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