Câu 6 : D. Const pi = 3.14; ( câu A dư dấu hai chấm, câu B sai dấu hai chấm, câu C dư real )

Câu 7 : D. Tên biến := Biểu thức;

Câu 8 : A. 2 ( 45 div 2 = 22, 22 mod 3 = 1, 1 + 1 = 2)

Câu 9 : A. var a, b : integer; (B sai dấu băng, C dư dấu hai chấm, D. tên biến có khoẳng trắng )

Câu 10 : B. 3 ( 16 div 5 = 3, 15 - 3 = 12, 12/4 = 3)

Câu 1 :

a ) 2*x*x*x + 3*x*x + 4*x + 5

b ) (x + y)/(x - y)

Câu 2 :

Program dien_tich;
Uses crt;
Var a, b, S, cv : real;
Begin
Clrscr;
Write('Nhap do dai canh a :');readln(a);
Write('Nhap do dai canh b :');readln(b);
cv := (a+b)*2;
S := a*b;
Writeln('Chu vi hinh chu nhat  la :', cv:8:2);
Writeln('Dien tich hinh chu nhat  la :', S:8:2);
Readln
End.

Bài 3 :

program tinh;
uses crt;
var s, i : integer;
begin
clrscr;
for i:=0  to 100 do
s := s + i;
writeln('tong so tu 1 den 100 la :',s  );
readln
end.

II. Tự luận

1.

a. 2*x*x*x + 3*x*x + 4*x + 5 

b. (x + y) / (x - y)

2.

program ct;
uses crt;
var a,b,cv,dt: real;
begin
    clrscr;
    writeln('Nhap chieu dai, chieu rong (cm):'); readln(a,b);
    cv:=(a+b)/2; dt:=a*b;
    writeln('Chu vi HCN la: ',cv:5:1,'cm');
    writeln('Dien tich HCN la: ',dt:5:0,'cm^2');
    readln;
end.

3.

program ct;
uses crt;
var sum,i:integer;
begin
    clrscr;
    sum:=0;
    for i:=0 to 99 do
        sum:=sum+i;
    writeln('0+1+2+3+4+...+99 = ',sum);
    readln;
end.