Question

Допишите программу дано целое число, не меньшее 2. выведите его наименьший натуральный делитель, отличный от 1. var i,n,s: integer; begin read(n); i: =2; while s< > 0 do begin s: = n mod i; i: =i+1; end; writeln (i); end.

Answer 1

Var i,n,s:integer;
begin
    read(n);
        i:=2;  
          s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]
             while s<>0 do
                begin
                      s:= n mod i;
                         if s <> 0 then
                           i:=i+1;
                 end;
writeln (i);
end.