АБ
Алексей Беляков

Дано натуральное число. Найти его наименьший делитель (не равный 1).Знаю что это само число, но задание по информатике и

Найти его наименьший делитель (не равный 1).
Знаю что это само число, но задание по информатике и надо написать в паскале. Как?

СЯ
Спартак Ягудин

sub ppp()
NN = val(inputbox("введите число"))
for ii = 1 to NN
if NN MOD ii = 0 then
msgbox("наименьший делитель равен "+ii)
exit for
end if
next ii
end sub

АС
Александра Солдатова

Ага. Только ii не от 1, а от двойки.

Похожие вопросы
Наибольший делитель, не равный самому числу
Информатика. Найти сумму нечетных делителей натурального числа!
дано натуральное число n>1 найти количество его делителей. В паскале с циклом for
Какое число называют делителем данного натурального числа?
как решить через abc pascal задачу "Дано натуральное число n. Получить все простые делители этого числа"
Дано натуральное число. 1) приписать к нему такое же2)Найти количество различных цифр данного натурального числа. паскаль
Почему среди делителей числа всегда есть наименьший и наибольший? Что это за числа?
Даны натуральные числа
Задачи по информатике (паскаль): Вводится целое число и делитель. Программа отвечает делится ли число делитель или нет.
Дано натуральное число N. Среди натуральных чисел N,N+1,...2N найти всех близнецов.