Предмет: Информатика,
автор: knjashna
написать программу нахождения делителей числа, введенного с клавиатуры
Ответы
Автор ответа:
0
var
a, i: integer;
Begin
readln(a);
for i := 1 to a do
if (a mod i = 0) then
write(i, ' ');
End.
a, i: integer;
Begin
readln(a);
for i := 1 to a do
if (a mod i = 0) then
write(i, ' ');
End.
Похожие вопросы
Предмет: Геометрия,
автор: Kirishka208
Предмет: Математика,
автор: aliamurtuzova20
Предмет: Другие предметы,
автор: R15pp
Предмет: Биология,
автор: lizaliza99