Question

1)viết chương trình tính tổng n số tự nhiên đầu tiên (với n được ngập từ bàn phím) bắng lệnh while...do

Answer 1

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.

Answer 2

program cttinhtong;

uses crt;

var i,n,s : integer;

begin

clrscr;

readln(n);

i:= 0;

s:= 0;

while i<=n do

begin

s:= s+i;

i:= i|+1;

end;

write(' tong s la',s);

readln

end.