Задача №40
Найти все делители натурального числа n.
Program ciklp_3-
Uses Crt-
Var n,i:longint-
BEGIN
ClrScr-
Write(‘Введите число…’)-
Readln(n)-
Write(‘Делители числа ‘,n,’ : ‘)-
i:=1-
repeat
if n mod i = 0
then Write(i,’ ‘)-
Inc(i)-
until i>-n-
readln-
END.
Категория: Циклы |
Дата: 11.11.12
|