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 337
2 năm trước
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
· 2 năm trước
Hỏi từng câu 1 nha
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!