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

найти все делители натурального числа N

Ответы

Автор ответа: ali07
0

program aaa;
  var d, n : integer;
begin
 write ('введите число N-');
 readln (n);
 writeln('Делители числа: ');
 for d :=1 to n do
  if n mod d = 0 then writeln (d)
end.

Похожие вопросы