Предмет: Информатика, автор: knjashna

написать программу нахождения делителей числа, введенного с клавиатуры

Ответы

Автор ответа: HRAshton
0
var
  a, i: integer;

Begin
  readln(a);
  for i := 1 to a do
    if (a mod i = 0) then
      write(i, ' ');
End.
Похожие вопросы