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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
