Question

Một cụ già đã hơn 100 tuổi khi được phỏng vấn 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 các bình phương các chữ số tuổi tôi thì được kết quả chính là tuổi tôi Hãy viết chương trình tính tuổi của cụ già trên

Answer 1

program tim_tuoi;

uses crt;

var i,j,ngaysinh,tuoi, uoctuoi,k:integer;

begin

    clrscr;

    for i:=1 to 9 do

    for j:=0 to 9 do

    for k:=0 to 9 do

    begin

    uoctuoi:=sqr(i)+sqr(j)+sqr(k);

    tuoi:=i*100+j*10+k;for ngaysinh:=1 to 31 do

    if tuoi =uoctuoi+ngaysinh then write('tuoi cua cu la: ',tuoi);

    end;

    readln;

end.