Допишите программу пожалуйста
Дано целое число, не меньшее 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.
Дано целое число, не меньшее 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.
More Questions From This User See All
Answers & Comments
Verified answer
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.