Question

viết chương trình tính tổng số n số nguyên được nhập từ bàn phím

HELP ME

Nếu đúng xin hậu tạ bằng click

Answer 1

program bai1;

var i,n,s:longint;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('Tong la ',s);

readl

end.

Answer 2

var n,i,s:longint;

begin

write('nhap so n=');readln(n);

s:=0;

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

writeln(' tong n so nguyen la:',s);

readln;

end.

Answer 3

program bai1;

var i,n,s:longint;

begin

write('N= ');readln(n);

s:=0;

for i:=1 to n do

s:=s+i;

writeln('Tong la ',s);

readl

end.