Дистанционная подготовка: задача 3058 паскаль
Re: задача 3058 паскаль
от Андрей Тимохович - Пятница 30 Сентябрь 2016, 14:11
  var n,a:longint;
begin
read(n);
a:=2;
while (n mod a>0) do
a:=a+1;
write(a);
end.