Nhập n bất kỳ sau đó in ra tổng các chữ số của n

Question

Nhập n bất kỳ sau đó in ra tổng các chữ số của n

in progress 0
Ariana 4 tuần 2021-08-17T07:07:56+00:00 2 Answers 0 views 0

Answers ( )

    0
    2021-08-17T07:09:25+00:00

    uses crt;

    var s,n:longint;

    begin

       clrscr;

       write(‘nhap n=’); read(n);

       s:=0;

       while n>0 do 

       begin

          s:=s+n mod 10;

          n:=n div 10;

        end;

       write(‘tong=’,s);

    readln

    end.

    0
    2021-08-17T07:09:51+00:00

    Program FNG;
    Uses crt;
    Var n,s: longint;
    Begin
            Clrscr;
            Write(‘Nhap n: ‘); Readln(n);
            s:=0;
            While n<>0 do
            Begin
                    s:=s+n mod 10;
                    n:=n div 10;
            End;
            Write(‘S = ‘,s);
            Readln
    End.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )