Kid Koder
-
Posts
78 -
Joined
-
Last visited
Community Answers
-
Kid Koder's post in Rezolvare Exercitiu In Turbo Pascal? was marked as the answer
Am facut Pascal acum cativa ani Nu garantez ca urmatorul cod se compileaza
program LoL; var N, sumcif, i, aux, x: longint; begin writeln("Introduceti N: "); readln(N); for i:= 1 to N do begin sumcif := 0; aux := i; x := i; while(aux <> 0) do begin sumcif := sumcif + aux mod 10; aux := aux div 10; end if (x mod sumcif) then writeln(x); end end.