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

1 câu trả lời

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.