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
Trả lời
Tổng hợp câu trả lời (1)
NguyenHieu
01:11:18 24-Nov-2021
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.
Hãy giúp mọi người biết câu trả lời này thế nào?