Nhập vào số n nguyên dương,tính tổng các chữ số của số n và tính tích các chữ số của số n.Kết quả ghi ra hai dòng khác nhau
Nhập vào số n nguyên dương,tính tổng các chữ số của số n và tính tích các chữ số của số n.Kết quả ghi ra hai dòng khác nhau
By Alexandra
var n,s,t,n2,dv:longint;
begin
write(‘nhap n nguyen duong: ‘);read(n);
n2:=n; t:=1;
while n<>0 do
begin
dv:=n mod 10;
s:=s+dv;
t:=t*dv;
n:=n div 10;
end;
writeln(‘tong cac chu so cua ‘,n2,’ la: ‘,s);
write(‘tich cac chu so cua ‘,n2,’ la: ‘,t);
readln;
end.
program tong_tich;
uses crt;
var n,so,tong,tich:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
tong:=0; tich:=1;
while n<>0 do
begin
so:=n mod 10;
tong:=tong+so;
tich:=tich*so;
n:=n div 10;
end;
writeln(‘Tong cac chu so la: ‘,tong);
writeln(‘Tich cac chu so la: ‘,tich);
readln;
end.