3
1
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1500
738
program Tinh_tong;→Khai báo tên chương trình, tên là Tinh_tong
var N, i: integer; →Khai báo biến N,i có kiểu dữ liệu là integer.
S: longint; →Biến S có kiểu dữ liệu là longint
begin→Bắt đầu chương trình
write('Nhap so N =');→In ra màn hình câu lệnh Nhap so N= và giữ nguyên con trỏ chuột
readln (N);→Nhập giá trị cho biến N và đưa con trỏ chuột xuống dòng
S:=0;→Gán giá trị của biến S bằng 0
for i:=1 to N do S:= S + i;→Chạy biến đếm i từ 1 đến N, mỗi lần thực hiện câu lệnh gán giá trị S=S+i;
writeln('Tong cua ',N,' so tu nhien dau tien S = ',S);→In ra màn hình Tong cua ,N, so tu nhien dau tien S =, S và đưa con trỏ chuột xuống dòng
Readln Dừng lại đọc chương trình cho đến khi bấm phím Enter.
end. →Kết thúc chương trình.
Hãy giúp mọi người biết câu trả lời này thế nào?
program Tinh_tong;
→Khai báo tên chương trình, tên chương trình là Tinh_tong
var N,i: Integer; S longint;
→Khai báo biến: N,i có kiểu dữ liệu là Integer, S có kiểu dữ liệu là longint.
begin
→Bắt đầu chương trình.
write('Nhap so N = '); readln (N);
→In ra màn hình Nhap so N = và giữ nguyên con trỏ chuột không xuống dòng, Nhập giá trị N và đưa con trỏ chuột xuống dòng
S:=0;
→S được gán giá trị bằng 0.
for i:=1 to N do
→Sử dụng vòng lặp biết trước, chạy biến đếm i từ 1 đến N, mỗi lần lặp thực hiện câu lệnh phía sau.
S:=S+i;
→S được gán giá trị S+i
writeln ('Tong cua ',N,' so tu nhien dau tien S = ',S);
→In ra màn hình Tong cua N so tu nhien dau tien S
readln
→Dừng lại chương trình cho đến khi bấm phím Enter.
end.
→Kết thúc chương trình.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
751
21833
1052
:((