Một số có tính chất: Tổng các chữ số của nó bằng tích các chữ số của nó. Ví dụ: 1124 có 1+1+2+4 = 1*1*2*4. Tìm tất cả các số có tính chất đó trong khoảng M,N. M,N nhập từ bàn phím.
Giải
Var a: array[1..30] of integer; i,j,m,n,x,tong,tich: integer;
Procedure PTS(g:integer);
begin
i:=1;
repeat
a[i]:=(g mod 10); g:=g div 10; i:=i+1;
Until g<10;
a[i]:=g;
End;
Begin
Write('Nhap m, n (m<n): '); Readln(m,n);
Write('Cac so co tong bang tich la: ');
For j:=m to n do
begin
PTS(j); tong:=0; tich:=1;
for x:=1 to i do
begin
tong:=tong+a[x]; tich:=tich*a[x];
end;
if tong = tich then write(j,'; ');
end;
readln;
End.
10.05.2017
Subscribe to:
Post Comments (Atom)
hello thay
ReplyDelete