Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N

Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N

0 bình luận về “Viết chương trình nhận vào 1 số nguyên n viết chương trình tổng các số của N”

  1. uses crt;

    var n,s: integer;

    begin

    clrscr;

    write (‘nhap n: ‘);  readln (n);

    while n>0 do

    begin

    s:=s+(n mod 10);

    n:=n div 10;

    end;

    writeln (‘tong cac chu so cua N la: ‘,s);

    readln;

    end.

    Bình luận

Viết một bình luận