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; […]