Помогите решить задачу с циклом while.
Минимальный делитель.
Дано целое число, не менее 2. Выведите его наименьший натуральный делитель, отличный от 1.
Без break!!!
ПАСКАЛЬ ABC!!!
Минимальный делитель.
Дано целое число, не менее 2. Выведите его наименьший натуральный делитель, отличный от 1.
Без break!!!
ПАСКАЛЬ ABC!!!
More Questions From This User See All
Answers & Comments
var N,i:integer;
k:boolean;
BEGIN
readln(N);
i:=2;
while (k=False) do begin
if (N mod i=0) then k:=True;
i:=i+1;
end;
writeln(i-1);
end.