Question

1 cụ già hơn 100 tuổi rất yêu 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 bình phương các chữ số tuổi tôi thì được tuổi của tôi ' các phống viên không biết tuổi cụ như thế nào . Em hãy viết phương trình tính tuổi cụ.

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.