A

A

C

B và C

Var a:array[1..100] of integer;

i,n:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Writeln('Cac so vua nhap la');

For i:=1 to n do writeln(a[i]);

Readln;

End.

* Sử dụng For ... do

Var i,s:integer;

Begin

For i:=1 to 10 do

s:=s+i;

Write('Tong la ',s);

Readln;

End.

* Sử dụng While ... do

Var i,s:integer;

Begin

i:=1;

While i<=10 do

Begin

s:=s+i;

i:=i+1;

End;

Write('tong la ',s);

Readln;

End.

1. Định dạng Font chữ

2. Định dạng kiểu chữ

3. Định dạng cỡ chữ

4. Định dạng màu chữ

5. Kiểu đường gạch chân

6. Màu đường gạch chân

7. Một số hiệu ứng đặc biệt

1A

2B

3C

7D

8C

9B

10B

11A

12D

1A

2B

3D

4B

5C

6D

7B

8A

9B

10C

11B

12B

Var i,n:integer;

E:real;

Begin

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

E:=1;

For i:=2 to n do

Begin

E:=E*i;

i:=i+2;

End;

Write('E = ',E:15:0);

Readln;

End.