10.05.2017

Tổng bằng tích

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.

1 comment:

Cảm ơn bạn đã nhận xét