Question

Cho số nguyên N (0 <= N <= 10^5). Tính tích các chữ số của N.

Ví dụ:

N=1234 Kết quả: 24

N=7 Kết quả: 7

a) Viết chương trình giải bài toán trên. Biết N được nhập vào từ bàn phím, kết quả xuất ra màn hình. Trong chương trình có kiểm tra tính đúng của dữ liệu nhập vào.

b) Sau khi giải bài toán này thì học sinh có thể phát triển được kỹ năng và năng lực gì?

Answer 1

Lời giải :

program hotrotinhoc;

var N: integer;

function TCS(x: integer): integer;

var s,y: integer;

begin

s:=1;

while x<>0 do

begin

s:=s*(x mod 10);

x:=x div 10;

end;

TCS:=s;

end;

Begin

write('N='); readln(N);

write(TCS(N));

readln

end.

Answer 2

uses crt;
var n,d,i,x,y:integer;
t:longint;
st:string;
begin
clrscr;
repeat
write('nhap n='); readln(n);
if (n<0) or (n>100000) then writeln('sai , nhap lai');
until (0<=n) and (n<=100000);
str(n,st);
t:=1;
d:=length(st);
for i:=1 to d do
begin
val(st[i],x,y);
t:=t*x;
end;
{-------------------------}
writeln('tich cac chu so cua ',n,' la: ',t);
readln;
end.