Viết chương trình nhập vào một số có 3 chữ số. Tính và in ra màn hình tổng các chữ số của số đó

0 bình luận về “Viết chương trình nhập vào một số có 3 chữ số. Tính và in ra màn hình tổng các chữ số của số đó”

1. Program baitaptrenhoidap ;

   Uses crt ;

   Var n,S : longint ;

   Begin

   Writeln ( ‘ nhap so  co ba chu so ‘ );

   S:=n mod 10;
   S:=S+n mod 10;
   S:=S+n mod 10;
   write(‘Tong cac chu so cua so ‘,n,’ la: ‘,S);
   readln;
   end.

   Bình luận

2. program ct;
   uses crt;
   var n,S:integer;
   begin clrscr;
      write(‘Nhap so co 3 chu so: ‘); readln(n);
        S:=n mod 10;
          n:=n div 10;
        S:=S+n mod 10;
          n:=n div 10;
        S:=S+n mod 10;
      write(‘Tong cac chu so cua so ‘,n,’ la: ‘,S);
   readln;
   end.

   Học tốt!

   Bình luận