Question

tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng  vòng lập for...do

tính tổng các số tự nhiên A=1+2+3+4+...+n sử dụng vòng lập while...do

 

 

Answer 1

a) Sử dụng vòng lặp For..do

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

for i:=1 to n do 

  a:=a+i;

writeln(a);

readln;

end.

b) Sử dụng vòng lặp While...do

uses crt;

var a,i,n:integer;

begin

clrscr;

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

a:=0;

i:=1;

while i<=n do 

  begin

a:=a+i;

inc(i);

end;

writeln(a);

readln;

end.