Question

Se citeste de la tastatura un numar natural n cuprins intre 100 si 999. Dintre numerele naturale mai mici sau egale decat n, sa se afișeze acelea care sunt divizibile cu suma cifrelor lor .
Exemplu: pentru n=25, se vor afișa numerele : 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24

Answer 1

var n,m,i:integer;beginreadln(n);for m:=1 to n doif n mod m=0 thenbegini:=m;writeln(i);end;end.