Tin học [Lớp 8] Viết chương trình tính tổng

[Hoàng Long AZ]

[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 (sử dụng câu lệnh while...do) để tính và in ra màn hình tổng n số tự nhiên đầu tiên.

 

[ctg357]

viết chương trình (sử dụng câu lệnh while...do) để tính và in ra màn hình tổng n số tự nhiên đầu tiên.

Trình tự :
Uses crt ;
Var i,s,n: integer;
Begin
Clrscr;
Write('Nhập vào số 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.

 

[milkteaprettygirl]

Trình tự :
Uses crt ;
Var i,s,n: integer;
Begin
Clrscr;
Write('Nhập vào số 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.