Verified answer

Thuật toán như sau:

tong:=0;

Tich:=1;

while n>0 do

begin

so:=n mod 10;

n:=n div 10;

if so<>0 then begin tong:=tong+so; tich:=tich*so; end;

end;

Phần việc còn lại bạn tự làm nha!

uses crt;

var n,i,so,tong,tich:longint;

begin

clrscr;

write('n=');readln(n);

tong:=0;

Tich:=1;

while n>0 do

begin

so:=n mod 10;

n:=n div 10;

if so<>0 then begin tong:=tong+so; tich:=tich*so; end;

{write('so',so);'}

end;

writeln('Tong:=',tong);

writeln('Tich:=',tich);

readln;

end.