Đăng nhập để hỏi chi tiết
12
8
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin