Nhập vào số n bất kì ròi in ra tổng các chữ số của n. Cảm ơn mn!

0 bình luận về “Nhập vào số n bất kì ròi in ra tổng các chữ số của n. Cảm ơn mn!”

1. Program Tinh_tong;

   Uses Crt;

   Var N, S, k: integer;

   Begin

   Write (‘Nhap N: ’);

   Readln (N);

   S := 0;

   While ( N <> 0 ) do

   Begin

   k := N mod 10;

   N := N div 10;

   S := S + k;

   End;

   Writeln (‘Tong cac chu so cua ’,N,’ la :’, S);

   Readln;

   End.

   Bình luận

2. program nhap_n;

   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