uses crt;

var n,x:integer;

begin

clrscr;

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

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

a: int m;

double q;

Bài 1: 

Ta nhớ thực hiện lệnh

<biến đếm>:=<giá trị>;

Bài 2: 

d:=d+2;

Câu 16: (0,25đ) Trong các cách viết câu lệnh lặp với số lần định trước như sau, cách nào đúng?

A. For <biến đếm> := <giá trị đầu> to <giá trị cuối> ;do <câu lệnh>

-> Sai vì trước do có dấu ;

B. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C. For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>

-> sai vì kết thúc câu lệnh không có dấu ;

D. For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

 -> sai vì sau <biến đếm> không có dấu :

B

Đáp án đúng : C

b

B

.Để in giá trị của phần tử thứ 6 trong biến mảng, ta sử dụng câu lệnh nào?

print(A[5])

print(A[i])

print(A[6])

print(A[i+1])

Khai báo nào là đúng trong các khai báo sau đây:

tuoi = [1]*n

tuoi : [2]-n

tuoi = [3]+n;

tuoi := [0]/n

Cho khai báo mảng như sau:
              a = [0]*n
Để nhập giá trị cho phần tử thứ 20 của mảng a từ bàn phím, ta viết:

a=eval(input('a[21]= '))

a=eval(input('a[18]= '))

a=eval(input('a[19]= '))

a=eval(input('a[20]= '))

a) var cannang:array[10..100] of real;

b) a[7]:=20;