Question

viết một chương trình nhập vào 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

Answer 1

uses crt;

var n,i,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=0 to n-1 do

t:=t+i;

writeln('tong cua ',n,' so tu nhien dau tien la: ',t);

readln;

end.

Answer 2

uses crt;

var n,i,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

for i:=0 to n-1 do

t:=t+i;

writeln('tong cua ',n,' so tu nhien dau tien la: ',t);

readln;

end.