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: abcd=(ab + cd) ^ 2

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: abcd=(ab + cd) ^ 2

Lý thuyết

- Trong hệ cơ số 10: Số A = an….a2a1a0 = a0  + 10a1 + … +10nan nên:

Để lấy số a0 = A mod 10; Để xóa chữ số a0 ta dùng A:=A div 10.

(Tương tự: Để lấy hai số tận cùng a1a0 = A mod 100; Để xóa hai chữ số a1 a0 ta dùng A:=A div 100.

- Thuật toán vét cạn: Để xét tất cả các trường hợp của số A ta xét an = 1..9; an-1….a2a1a0 =0..9

- Hệ cơ số 2: Nếu như hệ thập phân dùng 10 chữ số để ghi số thì hệ cơ số 2 chỉ dùng hai chữ số là 0 và 1 để ghi số.

- Đổi một số từ cơ số 2 sang cơ số 10:

- Đổi một số từ cơ số 10 sang cơ số 2:

- Hệ cơ số bất kỳ:

- Vấn đề cộng, trừ, nhân, lũy thừa số lớn (hoặc kết quả được số lớn) được xem xét riêng ở một chuyên đề (sau khi được trang bị dữ liệu kiểu string).

>> Viết chương trình cho phép nhân hai đa thức đã sắp xếp

>> Viết chương trình tính giá trị của đa thức A(x) với điều kiện không dùng biến mảng

Bài tập

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: abcd=(ab + cd)2

Ví dụ: số 2025=(20 + 25)2.

Thuật toán:

  • Kiểm tra tất cả các số có bốn chữ số theo các cách sau;
  • Tách lấy hai số đầu, hai số sau của số có bốn chữ số để kiểm tra.
  • Kiểm tra các trường hợp có thể của mỗi chữ số.
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ạn thấy bài viết này như thế nào?: 
Average: 7 (3 votes)
Ảnh của Tommy Tran

Tommy Tran owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

  • Skype ID: tthanhthuy
  • Phone/Zalo: (+84) 944 225 212
  • WhatsApp: (+84) 944 225 212
  • Line Messenger: (+84) 944 225 212
  • Email: asaleotestf@gmail.com
  • Telegram Messenger: https:/t.me/tommytran0401

Quảng cáo việc làm

 

Thích hợp các bạn nữ mảng thợ may làm việc tại nước NGA

Đơn hàng Tuyển dụng 100 Thợ may đi Nga(đợt 1 tháng 3.2021, đợt 2 tháng 5.2021). Lương thực lãnh 800 USD, bao ăn ở, vé máy bay và visa, phí xuất cảnh(1800 USD)trả khi đi làm có lương. Bạn có thể liên hệ CÔNG TY qua Phone/Zalo: (+84) 944 225 212. Công ty sẽ tư vấn cho bạn.

Xem chi tiết: >>> https://bit.ly/3o9NOfR

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
Samsung: 'Apple ra iPad Mini vào quý III năm nay'

Samsung: 'Apple ra iPad Mini vào quý III năm nay'

Một văn bản bí mật của nhà sản xuất Hàn Quốc tiết lộ thông tin Apple sẽ ra mắt iPad 7 inch vào cuối năm.

Vụ rò rỉ dữ liệu cá nhân lớn nhất ở Phần Lan

Vụ rò rỉ dữ liệu cá nhân lớn nhất ở Phần Lan

THX dẫn nguồn tin từ truyền thông Phần Lan ngày 7/11 cho biết, một vụ rò rỉ dữ liệu đã được phát hiện hôm 5/11, trong đó thông tin cá nhân chi tiết của 16.000 người Phần Lan đã bị đưa lên một trang web chia sẻ tài liệu.

Focusbook sẽ giúp bạn cai nghiện Facebook hiệu quả

Focusbook sẽ giúp bạn cai nghiện Facebook hiệu quả

Công bằng mà nói Facebook có tác động tiêu cực hay tích cực là do cách chúng ta sử dụng mạng xã hội này