Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
Program bai1;
uses crt;
var n,i,s:integer;
begin
write('n:');readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('s:',s:4);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
program Tinh_tong
Var n: integer
s: longint
BEGINrepeatwrite( 'Nhap n: ')
readln(n)
until (n>=0)
s:=0
for i:=1 to n dos:=s+i
write('Tong cac so tu 1 toi ', n,' =', s)
readln
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
um.....
Mình thử của bạn kia ròi
Đơn giản mà cũng nhanh hơn
sao bn lm phức tạp thế?
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K13 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
0
1054
0
Mà này tại sao s=0?
343
87
452
Vì để khi cổng nó sẽ biểu thị là 1 số bắt đầu từ ko thực hiện
0
1054
0
uk thanks
0
1054
0
cho hay nhát nhé!
343
87
452
Thanks tus
343
87
452
khoá bl đi
343
87
452
mình còn lm