CHO MIK HỎI LM SAO ĐỂ ĐỔI CÁC SỐ NÀY TRONG PHẦN MÊM POWERPOINT VẬY
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
MN
0


4 tháng 6 2021
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.
Me ko biết.
z trl lm j