Написать программу нахождения делителей числа, введенного с клавиатуры
Написать программу нахождения делителей числа, введенного с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьvar
a, i: integer;
Begin
readln(a);
for i := 1 to a do
if (a mod i = 0) then
write(i, ' ');
End.
Не нашли ответ?
Похожие вопросы