Меню сайта

Задача №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&gt-n-

readln-

END.

Категория: Циклы | Дата: 11.11.12

Меню раздела
Блок