14. Viết chương trình tính tổng: S= 1+2+3+…+n với n là số tự nhiên được nhập từ bàn phím bằng cách sử dụng câu lệnh lặp While … do. Mình cảm ơn nhiềuuu
2 câu trả lời
var i,n: integer;
s:longint;
begin
write('nhap so n=');readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i; i:=i+1;
end;
write('tong cua',n,' so tu nhien dau tien la',s);
readln
end.
var s,n,i:longint;
begin
write('Nhap n: '); readln(n);
while i<n do
begin
inc(i);
s:=s+i;
end;
write('s= ',s);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
