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.
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.
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.
giúp tôi c10 tn với c11 tl i
Câu 10 TN:
t = 8
Câu 11 TL
1) {5} {4} {2} {1} {3}
2) Chương trình trên dùng để tính tổng các số từ 1 đến n (n = 10)
3) n = 3; S = 6
Program HOC24;
var i: byte;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
var i: integer;
begin
for i:=1 to 20 do writeln('Toi yeu Viet Nam');
readln
end.
có 2 vế câu:
_C1_____
Rồi hai con mắt của cô tôi chằm chặp đưa nhìn tôi .Tôi lại im lặng cuối đầu xuống đất:lòng tôi càng thắt lại, khoé mắt tôi cay cay.
____V2____ ___C2_____V2___________C3_______V3
mối quhe tăng tiến.