Question

Решить язык free pascal gnu c gnu c++ delphi java python 2.7 mono c# python 3.1 min время, сек 0.001 0.004 0.002 0.002 0.124 0.008 0.064 0.046 среднее время, сек 0.005 0.006 0.011 0.005 0.124 0.024 0.064 0.079 верных решений 73 5 102 9 1 2 1 301 дано целое число, не меньшее 2. выведите его наименьший натуральный делитель, отличный от 1. входные данные вводится целое положительное число. выходные данные выведите ответ на . примеры входные данные 15 выходные данные 3

Answer 1

Паскаль:
Program P;
uses crt;
var n,i:integer;
Begin clrscr;
write(' N='); readln(n);
 i:=1;
while i<=n do begin i:=i+1;
if n mod i=0 then
begin
writeln('Наименьший делитель=',i);
end;
end;
end.