Jump to content

Kid Koder

  • Posts

  • Joined

  • Last visited

Community Answers

  1. 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.
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.