nếu thêm ngày sinh của tôi vào tổng các bình phương các chữ số tuổi tôi thì được kết quả chính là tuổi của tôi. viết chương trình tìm ra số tuổi của cụ
1 câu trả lời
Program FNG;
Uses crt;
Var a,b,c,d: longint;
Begin
Clrscr;
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=1 to 31 do
If (sqr(a)+sqr(b)+sqr(c))+d = (a*100+b*10+c) then
Writeln('Tuoi cu la: ',a,b,c);
Readln
End.