Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó. viết chương trình

0 bình luận về “Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó. viết chương trình”

1. var i,n,t:longint;

   begin

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

   for i:=1 to 3 do

         begin

                     t:=t + n mod 10;

                      n:=n div 10

         end;

   write(‘Tong la: ‘,t);

   readln

   end.

   Bình luận

2. uses crt;

   var a:integer;

   tong:byte;

   BEGIN clrscr;

   write(‘Nhap 1 so co 3 chu so: ‘);

   readln(a); tong:= a mod 10;

   a:=a div 10;

   tong:=tong+a mod 10;

   a:=a div 10;

   tong:=tong+a mod 10;

   writeln(‘Tong cac chu so do la: ‘,tong);

   readln

   END.

   Bình luận