Найти наименьший делитель числа n, отличный от 1.
Найти наименьший делитель числа n, отличный от 1.
Гость
Ответ(ы) на вопрос:
Гостьvar
i, n: integer;
begin
write('Введите число ');
Readln(n);
for i := 2 to n do
if (n mod i) = 0 then begin
write('Наименьший делитель равен ', i);
Break;
end;
end.
Не нашли ответ?
Похожие вопросы