Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы