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

0 bình luận về “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. 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.

   Bình luận