Question

Viết chương trình tính tổng N số nguyên (với N được nhập từ bàn phím).

Answer 1

var i,n,so:integer;

s:longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(so);

s:=s+so;

end;

write('Tong la ',s);

readln;

end.