Надо проверить все числа от 1 до квадратного корня из n var i, n: integer var Mes: string BEGIN readln(n) for i = 1 to sqrt(n) do begin if n mod i = 0 then Mes = Mes + i + ', '; end; END.
Команда n mod i = 0 и означает, что деление n на i прошло без остатка.
let number = prompt("Введите число для рачета его делителей"); let str=''; for (let n = 1; n <= number; n++){ let a = number % n if(a==0){ str += n + ', ' } }