Edgars miniblogs

  • Edgars
    0

    Edgars 27.11.2012. 16:12

    Uzrakstit programmu, kas aprekina lietotaja ievadita skaitla ciparu skaitu, nosaka pirmo ciparu un ciparu summu.  (while cikls), pascal
    :o
    Help (((

    • Edgars
      0

      Edgars 27.11.2012. 16:36 #

      Program i3uuqs89f8923yr78;
      var x,s,z:integer;
      begin
      Write(' Ievadi skaitli: ');
      Readln(x);
      S:=0;
      While x>0 do
      begin
      Z:=x mod 10;
      Write(z:3);
      S:=s+z;
      x:=x div 10;
      end;
      Writeln(' Ciparu summa ir: ',s);
      Writeln('Pirmais skaitlis ir: ', z);
      readln;
      end.

      Tatad esmu nonacis tik talu. Programma aprekina ciparu summu un nosaka pirmo ciparu.

      Varbut kads zin, ka var noteikt ievadita skaitla ciparu skaitu? Piemeram ievadu 125 - 3 cipari, 1000 - 4 cipari 10 - 2 cipari utml!