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

Question

Информатика

Митрюха

31 марта, 07:08

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

+4

Ответы (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.