OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

Gọi abcd là một số có 4 chữ số. Hãy lập chương trình tìm tất cả các số có 4 chữ số thỏa mãn biểu thức: \({\bf{abcd}} = {\left( {{\bf{ab}}{\rm{ }} + {\rm{ }}{\bf{cd}}} \right)^{\bf{2}}}\)

  bởi Lê Minh Bảo Bảo 30/11/2021
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • Cách 1:

    Program         Tach_so;

    Var      haisodau, haisocuoi, i : integer;

    Begin

                Writeln( ‘ cac so thoa man dieu kien gom co’);

                For i:=1000 to 9999 do

                            Begin

                                        haisodau:=i Div 100;{lay 2 so dau tien ab}

                                        haisocuoi:=i mod 100;{lay 2 so cuoi cd}

                                        If i=SQR(haisodau + haisocuoi) then write(i:5);

                            End;

                Readln;

    End.

    Cách 2:

    Program         Xet_so;

    Var      a,b,c,d : integer;

    Begin

                Writeln( ‘ cac so thoa man dieu kien gom co’);

                For a:=1 to 9 do

                      For b:=0 to 9 do

                             For c:=0 to 9 do

                                   For d:=0 to 9 do

                                        If i=(1000*a + 100*b + 10*c+ d) = SQRT(10*a+b + 10*c+d)

                                     then write(i:5);

                Readln;

    End.

      bởi Minh Hanh 30/11/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF