Tính tổng các số nguyên dương từ 1 đến n (Tính tổng 1 + 2 + ... n). Chú ý: Sử dụng câu lệnh for..do
Quảng cáo
1 câu trả lời 565
Bài 6:
program tinhtong;
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n');
readln(n);
S:=0;
for i:=1 to n do
S:=S+i;
write('Tong la: ',s);
readln;
end.
Namedsolabs99
· 3 năm trước
Hỏi từng câu 1 nha
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
1106 -
Đã trả lời bởi chuyên gia
Gửi báo cáo thành công!
