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.

Posturi asemanatoare

Daca vrei sa fii la curent cu ceea ce apare zilnic pe blog, poti sa te abonezi la feedreader ( e gratis, in cazul in care iti pui intrebarea ). Pe langa asta, poti sa ma urmaresti pe Twitter ori pe Facebook. Daca te intereseaza mai mult partea profesionala a lucrurilor, atunci vezi mai multe pe profilul meu de linkedin, incerc sa il tin cat de cat la curent.

This entry was posted on Thursday, October 9th, 2008 and is filed under Tehnologie. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

3 Comentarii la postul : “Probleme Pascal – Afisarea tuturor numerelor cu 3 cifre divizibile cu suma cifrelor lor”

Poti sa iti dai cu parerea, in limitele bunului simt. Sau poti sa injuri porceste, pe raspunderea ta. Esti liber sa dezbati subiectul propus.

G.Dorin
October 9th, 2008
Baga si tu un pik de indentare
Mihai Jepan
October 10th, 2008
@Dorin, sunt lenes uneori, stiu
@Sorina – peste tot o sa dai numai de probleme de info!
kosmin
October 13th, 2008
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”.