Предмет: Информатика,
автор: maksfwrwe
Вводится число n, найдите все его делители. паскаль
Ответы
Автор ответа:
0
Var
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.
n,i:integer;
Begin
Write('n = ');ReadLn(n);
For i:= 1 to n do
if n mod i = 0 then Write(i,' ')
End.
Похожие вопросы
Предмет: Литература,
автор: roksanamirzaeva25
Предмет: Математика,
автор: dashenka748
Предмет: Українська мова,
автор: Аноним
Предмет: Литература,
автор: оылвладпбпбплплд