Quảng cáo
3 câu trả lời 258
2 năm trước
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
uses crt;
var n,i,s:qword;
begin
n:=20;
s:=1;
while n>1 do
begin
s:=s*n;
dec(n);
end;
writeln('Ket qua: ',s);
readln;
readln;
end.
Nho Pham
· 2 năm trước
Dòng thứ 2 sao lại "qword" ạ .hay cj viết sai ạ
2 năm trước
"if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;" đoạn này ghi liên tiếp luôn ạ chứ máy đến đoạn "n+1;" thì nó xuống dòng
else n:=n-1;" đoạn này ghi liên tiếp luôn ạ chứ máy đến đoạn "n+1;" thì nó xuống dòng
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Thành viên hăng hái nhất trong tuần
-
돈이없다 💸😭
435 điểm
-
반짝이는 달 420 điểm
-
야연 ✨
400 điểm
-
보고 싶어요
385 điểm
-
jet jet #
345 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
305 điểm
-
`d.`
285 điểm
-
Kiều Anh 170 điểm
-
Phát: ''đạp = niềm tin hả?''; t : ''🤫🧏''
135 điểm
-
`color{blue}text{이 글을 읽는 사람은 바보다.`베트남이 챔피언입니다.
105 điểm
-
Hung Hungdoan 100 điểm
-
baolam<3
70 điểm
-
Paris.khong.co.em...
70 điểm
-
Judy Hopps
60 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8199
-
3 năm trước7715
-
3 năm trước6553
-
3 năm trước6447
-
3 năm trước6270
Gửi báo cáo thành công!
