Найти наименьший делитель числа n, отличный от 1.

Question

Информатика

Мута

7 сентября, 15:00

Найти наименьший делитель числа n, отличный от 1.

+3

Ответы (1)

Знаете ответ на вопрос?

Лега · Answer 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.