Câu 1:

Program:khai báo tên chương trình

Uses:khai báo thư viện

Var:khai báo biến

Const:khia báo hằng

Begin:Bắt đầu phần thân

End:kết thúc chương trình

Câu 2:

A.1-a/(c*sqrt(b-1))

B.1/(exp(n)+1)

C.sqrt(x*x-2)+x

D.(a-sin(x))/(b+cos(x))

Câu 3: Các câu lệnh:

If (x>1 and y>1) then z:=x+y;

If (x>1 and y<=1) then z:=x-y;

If (x<=1 and y>0) then z:=-x+y;

If (x<=1 and y<=0) then z:=-x-y;

Câu 4: 

Program baitap1;

Uses crt;

Var a,b:real;

Begin

Clrscr;

Write('Nhap 2 so thuc:');

Readln(a,b);

Writeln('Tong 2 so thuc:',a+b);

Readln

End.

_________________________________

Program baitap2;

Uses crt;

Var i,N:integer;

      S:longint;

Begin

Clrscr;

S:=0;

Write('N=');

Readln(N);

For i:=1 to N do S:=S+i*i;

Writeln('S=',S);

Readln

End.

1) gồm

div,mod,if,then,or,const,begin,end,else,array,while,for,and,program,function,...

2)

A

-a/c*sqrt(b-1);

B

1/exp(x)+1;

C

sqrt(sqr(x)-2)+x

D

(a-sin(x))/(b-cos(x))

3)

if (x>1) and (y>1) then z:=x+y;

if (x>0) and (y<0) then z:=x-y;

if (x<=1) and (y>0) then z:=-x+y;

if (x<=1) and (y<=0) then z:=-x-y;

4)

dài quá mình không làm nha!

var a,b:real;

begin

readln(a,b);

write(a+b);

end.

var s,n,i:longint;

begin

readln(n);

s:=1;

while i<=n do

begin

s:=s*sqr(n);

i:=i+1;

end;

write(s);

readln;

end.

`khoadang09`