Ciferný součet – Delphi – Fórum – Programujte.com

Dobry den potřeboval bych prosim poradit mám tento úkol Na vstupu je celé nezáporné číslo N spočtěte jeho ciferný součet...mně to počítá ciferný součet pouze od 0 do 99...prosim poradte.diky moc za odpovedi
program Project2;

{$APPTYPE CONSOLE}



uses

  SysUtils;



var n,p,l,I,soucet,cislo,x:integer ;



begin

  writeln('  ciferny soucet');

  writeln;

  writeln;

  writeln;

  write('N=');

  readln(n);

  writeln;



  soucet:=0;

  x:=10;

  I:=0;

  cislo:=10;



  if n>I then begin



    p:=n mod 10;



  while p>=cislo do begin

    l:=n div 10;

    cislo:=cislo+1;

  end;

  end;

  soucet:=l+p;



  writeln('ciferny soucet je ',soucet);



  writeln;

  writeln;

  writeln('Stisknutim ENTERU program ukoncite');

  readln;



end.

omlouvam se podivejte se az na tento zdrojový kod tento funguje(ten predchozi ne)

program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var n,p,l,I,soucet,cislo,x:integer ;



begin

  writeln('  ******Cykly 09(secte cisla vetsi nez A a mensi nez B)******');

  writeln;

  writeln;

  writeln;

  write('N=');

  readln(n);

  writeln;



  soucet:=0;

  x:=10;

  I:=0;

  cislo:=10;



  if n>I then begin







    p:=n mod 10;



  while x>=cislo do begin

    l:=n div 10;

    cislo:=cislo+1;

  end;

  end;

  soucet:=l+p;



  writeln('ciferny soucet je ',soucet);



  writeln;

  writeln;

  writeln('Stisknutim ENTERU program ukoncite');

  readln;



end.

To NOFEAR7 : no pokud vidim dobre tak secte jen posledni dve cislice ...
spis bych to byt tebou resil necim jako

soucet := 0;

if cislo > 0 then begin

  while ( cislo > 0 ) do begin

    soucet := soucet + (cislo mod 10);

    cislo := cislo div 10;

  end;

end;

To KIIV : Díky moc :smile1: