Probleme Pascal – Afisarea tuturor numerelor cu 3 cifre divizibile cu suma cifrelor lor

5. Creaţi fişierul “trei.out” care să conţină pe prima linie toate numerele de trei cifre divizibile cu suma cifrelor lor.

program prob20;
var f:text;
s,a,i,c,n:integer;
begin
assign(f,’trei.out’);
rewrite(f);
n:=999;
for i:=100 to n do begin
a:=i;
s:=0;
repeat
c:=a mod 10;
s:=s+c;
a:=a div 10;
until a=0;
if i mod s=0 then write(f,i,’ ‘);
end; close(f);
end.

3 thoughts on “Probleme Pascal – Afisarea tuturor numerelor cu 3 cifre divizibile cu suma cifrelor lor

  1. G.Dorin

    Baga si tu un pik de indentare 🙂

  2. Mihai Jepan

    @Dorin, sunt lenes uneori, stiu
    @Sorina – peste tot o sa dai numai de probleme de info!

  3. kosmin

    Hmm, am avut si eu de a face cu Pascalul in clasa a 10-a. Imi amintesc parca de niste probleme care se rezolvau prin o metoda “backtracking”.

Leave a Reply

Your email address will not be published. Required fields are marked *