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.