Viết chương trình tính tổng N số tự nhiên đầu tiên bằng cách dùng lệnh while..do( mong mn giúp ạ e sắp thi ạ)

Question

huongtram · Answer

Program Tinh_tong;

var N,i: Interger;

S: Longint;

begin

S:=0;

while i<N do

Begin i:=i+1;

S:=S+i;

End;

Write(‘Tong cau ‘,N’, so tu nhien dau tien S = ‘,S);

readln

end.

Có gi sai mong bạn chỉ cho mk!

Bình luận

mytam · Answer

program tinh_tong;

uses crt;

var n,i,t:integer;

begin

clrscr;

write(‘Nhap n: ‘); readln(n);

i:=1; t:=0;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

write(t);

readln;

end.

0 bình luận về “Viết chương trình tính tổng N số tự nhiên đầu tiên bằng cách dùng lệnh while..do( mong mn giúp ạ e sắp thi ạ)”