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ố đó
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ố đó
By Aubrey
By Aubrey
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ố đó
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.
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!