Tin học Tin học 8

[Mochida]

[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 của S= 1+2+3+..+n (với n là số nguyên dương nhập từ bàn phím)

Giúp mình với cần gấp!!!

 

[thuytien12112005]

Program viet_chuong_trinh_tong;
uses crt;
var s,i,n:integer;
Begin
Clrscr;
write('nhap so :');
readln(n);
S:=0; {tong ban dau = 0}
for i:=1 to n do S:=S+i;

Write('Tong cua 1+2+3+=',S);
readln;
End.
theo tôi là viết vậy nè
thằng bạn thân chỉ tôi như vậy

 

[ĐứcNhật!]

Viết chương trình
Tính tổng của S= 1+2+3+..+n (với n là số nguyên dương nhập từ bàn phím)

Giúp mình với cần gấp!!!

Program Tinh_tong;
Uses crt;
Var n,s,i: 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.