Em hãy viết chương trình tính tổng của n số tự nhiên nhập từ bàn phím.
Dùng câu lệnh For … do thực hiện.

Question

Em hãy viết chương trình tính tổng của n số tự nhiên nhập từ bàn phím. Dùng câu lệnh For … do thực hiện.

baoquyen · Answer

var i,n,t:integer;   begin   write('Nhap n: '); readln(n);   for i:=1 to n do   t:=t+i;   write('Tong la: ',t);   readln   end.

diemmy · Answer

var i,n: integer;

s:longint;

begin

write(‘nhap so n=’);readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write(‘tong cua’,n,’ so tu nhien dau tien la’,s);

readln

end.

0 bình luận về “Em hãy viết chương trình tính tổng của n số tự nhiên nhập từ bàn phím. Dùng câu lệnh For … do thực hiện.”