krisis06 miniblogs

  • krisis06
    0

    krisis06 19.03.2013. 18:55

    Kāds nevar izpalīdzēt? Pascal uztaisīt programmu kas apreiķina skaitļa ciparu summu. Piemēram ievada 123456 tad viņš izvada 21(jo 1+2+3+4+5+6=21)

    • Dawgora
      0

      Dawgora 19.03.2013. 18:57 #

      Uztaisi stringu... or domā loģiski un dali visu laiku to vērtību.

    • krisis06
      0

      krisis06 19.03.2013. 19:06 #

      Mmm... no string neko isti nesaprotu, bet vai ir iespējam real vērtību pielīdzināt integer vērtībai? Piemēram man ievadāmais skaitlis(x) ir uzlikts ka real, bet lai izmantotu pie Div un Mod darbībam real neder vaig integer. Meiģināju x:=t(integer vērtība); meta ka nederīgi

    • Dawgora
      0

      Dawgora 19.03.2013. 19:15 #

      Lemme see... kaut ko iečekošu.

      • Dawgora
        +1

        Dawgora 19.03.2013. 19:34 #

        Program ej;
        uses crt;
        var x,z,y: real;

        begin
        clrscr;
        writeln('Ievadiet skaitli');
        readln(x);


        repeat
        x:=x/10;
        z:=frac(x)*10;
        x:=int(x);
        y:=y+z;
        until x<1;

        writeln(y:0:0);
        readln();
        end.



        Check this.

    • Grintals
      0

      Grintals 19.03.2013. 19:39 #

      Coding.lv

    • krisis06
      0

      krisis06 19.03.2013. 19:40 #

      Liels paldies smile_mini.gif