Question

1. Viết chương trình tính tổng 200 số nguyên đầu tiên.

2. Viết chương trình tính tích 30 số nguyên đầu tiên.

3. Viết chương trình tính n!

4. Viết chương trình tính xⁿ

Answer 1

1. program b1 ;

var i,n :integer ;

begin

tong:=0;

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

write('Tong 200 so nguyen dau tien la :',n);

readln

end.

2. program b2 ;

var i,t: integer;

begin

t:=1;

for i:= 1 to n do t:=t*i;

write('Tich 30 so nguyen dau tien la : ',t);

readln

end.

3. program b3;

var n,i : integer ;

begin

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

n:=1;

for i:= 1 to n do n:=n*i; write('n!=',n);

readln

end.

4. program b4;

var i,n,x:integer;

lt:longint;

begin

write('nhap x='); readln(x);

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

lt:=1;

for i:=1 to n do lt:=lt*x;

write(x,'^',n,'=',lt);

readln

end.