Viết chương trình tính tổng S = 1+2+3+…+N. Với N là số nguyên nhập từ bàn phím? Sử dụng câu lệnh For..to..do
2 câu trả lời
var
n,kq,i: integer;
begin
readln (n);
for i:= 1 to n do kq:= kq + i;
writeln (kq);
readln;
end.
uses crt;
var i, N, S : integer;
begin
clrscr;
write('Nhap so N : '); readln(N);
S := 0; for i := 1 to N do S := S + i;
write('S = ', S);
readln
end.
- Đề 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
