Tin học pascal: cấu trúc lặp

[Lê Thị Hàn]

[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.

mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ
Bài 5: Nhập vào số nguyen dương n, tính và xuất ra tổng S = 1 + 2 + .....+n.

 

[ĐứcNhật!]

mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ
Bài 5: Nhập vào số nguyen dương n, tính và xuất ra tổng S = 1 + 2 + .....+n.

Program Tinhtong;
Uses crt;
Var s,i,n:longint;
Begin
clrscr;
Write('Nhap n: '); readln(n);
s:=0;
For i:=1 to n do s:=s+i;
Write('Tong la: ',s);
Readln
End.