Bài tập turbo pascal

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)²

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

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.