Pascal cấp II

[Ngọc Hiếu]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình tính tổng N số tự nhiên đầu tiên N=1+2+3+...N. Với N được nhập từ bàn phím

 

[Thiên Thuận]

var i,s,n: integer;
begin
write('Nhap vao so n = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cua ',n,' so tu nhien dau tien la ',S);
readln;
end.

Bạn tham khảo thêm nha!

 

[La Hồng Vỹ]

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