Достар срочно комек керек! 4 танбалы бутін Х санынын цифрларынын косындысын құру

Question

4 таңбалы бүтін Х санының цифрларының қосындысын табу және программасын құру!    Осы сұракка нақты жауап таба алмай отырмын Ойларыңыз болса көмектесіңіздерші! Толық жауап болса тіпті жақсы

Answer 1

program x_x;
    uses crt;
    var i, x, x2, man:integer;
    begin
    clrscr;
    writeln('neshe san kosindisi kajet: ');
    readln(x2);
    for i:= 1 to x2 do begin
    readln(x);
    x:=x mod 10; man:=man+x;
    end;
    writeln('Engizgen ',x2,' sannin 4-shi tsifrlar kosindisi = ' ,man);
    readln;
    end.

Comments

Esepti baskasha tusindim. Kaz duris esep jiberem.

Amigo 23.05.2012 пікір

---

рахмет сонда да аха кутем

Куаныш_КЕНЕС 23.05.2012 пікір

Answer 2

Mine durys esebi:
    program x_x;
    uses crt;
    var i, x, x2, man:integer;
    begin
    clrscr;
    writeln('neshe ret 4 tanbali san engizesiz: ');
    readln(x2);
    for i:= 1 to x2 do begin
    readln(x);
    x:=(x div 1000) + (x mod 1000 div 100) + (x mod 1000 mod 100 div 10) + (x mod 10);
    man:=man+x;
    end;
    writeln('Engizgen ',x2,' sannin 4-shi tsifrlar kosindisi = ' ,man);
    readln;
    end.

Comments

Рахмет Алла разы болсын! Standard беті деген сұраққа толық жауап та керек еді егер болса?

Куаныш_КЕНЕС 23.05.2012 пікір

---

Google ағамызды қолдану керек (!) :)

Amigo 23.05.2012 пікір