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.
Baga si tu un pik de indentare 🙂
@Dorin, sunt lenes uneori, stiu
@Sorina – peste tot o sa dai numai de probleme de info!
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”.