home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / internet / Jeremy / tp / ulohy / 12.pr < prev    next >
Encoding:
Text File  |  1999-08-03  |  348 b   |  21 lines
  1. Reseni ulohy c. 12 (29.10.98)
  2. =============================
  3.  
  4. Program Ciferny_soucet;
  5.  
  6. var vysl, cislo, suma: LongInt;
  7.  
  8. begin
  9.     readln(cislo);
  10.     suma:=0; {za zacatku je cif. soucet 0}    
  11.  
  12.     while cislo>0 do
  13.      begin
  14.         vysl:=cislo mod 10;
  15.         cislo:=cislo div 10;
  16.         suma:=suma + vysl;
  17.      end;
  18.     
  19.     writeln('Ciferny soucet je ',suma:2);
  20. end.
  21.