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

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

Đề bài: 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.

Lời giải:

var i，n，s: integer;

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

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

writeln (‘tong la: ‘，s);