Một cụ già hơn 100 tuổi rất yêu môn Toán khi được hỏi về tuổi của mình, cụ cho biết: ” Nếu thêm ngày sinh của tôi vào tổng bình phương các chữ số tuổi tôi thì được tuổi của tôi” . Anh phóng viên loay hoay không biết tính tuổi của cụ thế nào. Em hãy viết chương trình tính tuổi của cụ.
( Mình đang cần gấp cho sáng mai, ai trả lời nhanh và đúng mình vote 5* )
Program BTT;
Uses crt;
Var n,x,y: longint;
Function ktra(n,x,y: longint): boolean;
Begin
If n+1+sqr(x)+sqr(y)=100+10*x+y then exit(true);
exit(false);
End;
Begin
Clrscr;
For n:=1 to 31 do
For x:=0 to 9 do
For y:=0 to 9 do
If ktra(n,x,y) then Writeln(‘Tuoi la: ‘,1,x,y);
Readln
End.