1. viết một chương trình nhập một số tự nhiên n từ bàn phím và tính tổng của n số tự nhiên đầu tiên

2 câu trả lời

Chúc bạn thành công

 uses crt;
var i,s,n: integer; 
begin 
clrscr; 
write('Nhap vao so 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.

Câu hỏi trong lớp Xem thêm