Предмет: Информатика,
автор: Азима
найти все делители натурального числа N
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: ОБЖ,
автор: alanserikzhan
Предмет: История,
автор: kotiknarkotik7777777
Предмет: История,
автор: tlemisovarlan
Предмет: Математика,
автор: Михайлов
Предмет: Математика,
автор: андрей2000