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
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