Viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n. Với n Ɩà số nguyên

Câu 4: Viết chương trình in ra màn hình tính tổng các số dương từ 1 đến n. Với n Ɩà số nguyên được nhập vào từ bàn phím.

Trả lời

var i，n，s: integer;

write (‘nhap n: ‘);  readln (n);

for i:=1 to n do s:=s+i;

writeln (‘tong la: ‘，s);