LT

Tìm A, B, C, D, E biết : ABCD x E = DCBA

LT
11 tháng 2 2016 lúc 19:05

Nêu cách làm nha

 

Bình luận (0)
NH
11 tháng 2 2016 lúc 19:11

ở olm đúng ko

Bình luận (0)
LT
11 tháng 2 2016 lúc 19:19

đây là bài tập tết trong đội tuyển toán  của mik

 

Bình luận (0)
LD
11 tháng 2 2016 lúc 19:34

Nguyễn Thị Thu Hà ơi chuẩn ko cần chỉnh

Bình luận (0)
LT
11 tháng 2 2016 lúc 19:45

ở olm thì đúng nhưng đay là bài thầy giao !!!

mik bít kết quả nhưng ko bít cách làm !!!

Bình luận (0)
DN
12 tháng 2 2016 lúc 20:49

Uses crt;
Var a,b,c,d,e:integer;
BEGIN
  clrscr;
  For a:

Uses crt;
Var a,b,c,d,e:integer;
BEGIN
  clrscr;
  For a:=1 to 9 do
     For b:=0 to 9 do
        For c:=0 to 9 do
            For d:=1 to 9 do
                 For e:=1 to 9 do
                        If ((a*1000+b*100+c*10+d)*e = d*1000+c*100+b*10+a) and (a<>b) and (a<>c) and
                              (a<>d) and (a<>e) and (b<>c) and (b<>d) and (b<>e) and (c<>d) and (c<>e) and
                                   (d<>e) then Writeln('a=',a,' b=',b,' c=',c,' d=',d,' e=',e);

     Readln
END.

*Kết quả: a=2  

                b=1

                c=7

                d=8

                e=4

=1 to 9 do
     For b:=0 to 9 do
        For c:=0 to 9 do
            For d:=1 to 9 do
                 For e:=1 to 9 do
                        If ((a*1000+b*100+c*10+d)*e = d*1000+c*100+b*10+a) and (a<>b) and (a<>c) and
                              (a<>d) and (a<>e) and (b<>c) and (b<>d) and (b<>e) and (c<>d) and (c<>e) and
                                   (d<>e) then Writeln('a=',a,' b=',b,' c=',c,' d=',d,' e=',e);

     Readln
END.

*Kết quả: a=2  

                b=1

                c=7

                d=8

                e=4

Bình luận (0)
DN
12 tháng 2 2016 lúc 20:50

olm đó

Bình luận (0)

Các câu hỏi tương tự
CY
Xem chi tiết
H24
Xem chi tiết
LA
Xem chi tiết
LN
Xem chi tiết
PB
Xem chi tiết
NX
Xem chi tiết
PB
Xem chi tiết
PB
Xem chi tiết
PB
Xem chi tiết