Tính tổng của n số tự nhiên đầu tiên, với n là số nguyên dương và được nhập từ bàn phím.

2 câu trả lời

program bai1;

var n,s,i:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('s= ',s);

readln

end.

uses crt;
var n: longint;
begin
clrscr;
    readln(n);
    writeln(n * (n + 1) div 2);
readln;
end.

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