Question

Câu 1. Em hãy nêu vài ví dụ về hoạt động lặp với số lần biết trước và chưa biết trước.

Câu 2. Viết chương trình :

- Tính tổng : S = 1+2+3+...+n. Trong đó n là số nguyên nhập từ bàn phím.

- Tính tổng 200 số nguyên đầu tiên.

- Tính tích 30 số nguyên đầu tiên.

- Tính n.

- Tính \(x^n\)

Answer 1

2.

- Tính S = 1+2+...+n

uses crt;

var S,n,i: integer;

begin

clrscr;

writeln('Nhap n = '); read(n);

S:=0;

for i:= 1 to n do

S:=S+i;

writeln('S = ',S);

readln

end.

- Tổng 200 số tự nhiên khác 0 đầu tiên nhé :D

uses crt;

var A,i: integer;

begin

clrscr;

S:=0;

for i:= 1 to 200 do

S:=S+i;

writeln('A = ',A);

readln

end.

- Tính tích 30 số tự nhiên khác 0 đầu tiên nhé

uses crt;

var i,B: integer;

begin

clrscr;

B:=1;

for i:= 1 to n do

B:=B*i;

writeln('B = ',B);

readln

end.

- Tính n

uses crt;

var n: real;

begin

clrscr;

writeln('Nhap n = '); read(n);

writeln('n = ',n);

readln

end.

- Tính xⁿ

uses crt;

var n,i: integer;

p,x: real;

writeln('Nhap n: '); read(n);

writeln('Nhap x: '); read(x);

p:=1;

for i:=1 to n do

p:=p*x;

writeln('x^n = ',p);

readln

end.