`1`

a)

(x/y)<>(sqr(x)*y)

b)

sqr(a+1)-(a/b-5)

`2`

`->` câu lệnh trên viết sai vì trước câu lệnh sau then không có dấu chấm phẩy

`->` sửa  : if a<5 then a:=1;

`->`

đặt a=7

xét

`a<5->7<5->sai`

`=>`A=5

`3`

Input 2 cạnh nguyên a,b

Output diện tích S

b1 nhập a,b

b2 `S←a xx b`

b3 xuất S, kết thúc

`4`

a)

2*15+11*11-(25/6*6*6)

b)

((2+1)*(2+1)-15*15)+(30/25*25)

`5`

a) input 2 cạnh nguyên a,b

output chu vi CV

b)b1 nhập a,b

b2

`CV←(a+b)xx2`

b3 xuất CV, kết thúc

c)

uses crt;

var a,b,cv:integer;

d)

begin

clrscr;

write('nhap a,b: ');

readln(a,b);

cv:=(a+b)*2;

writeln('chu vi ',cv);

readln

end.

`6`

a)điều kiện là a<0

b) if a<0 then writeln(a,' la so am');

`7`

dài quá tự làm đi

Câu 1:

a) (x/y) <> (x*x*y)

b) sqr(a+1)-(a/a(b-5))

Câu 2:

a) Sai

Sửa lại: If a<5 then a:=a+1;

b) Điều kiện: a<5

c) a=7 <=> Câu lệnh không chạy

Câu 3:

a) Input: Chiều dài a, Chiều rộng b

   .Output: Diện tích S

b) B1: Nhập giá trị a,b

    B2: Lấy tích của hai biến a, b

    B3: In ra màn hình kết quả

Câu 4: 

a) 2*15+11*11-25/(6*6*6)

b) (sqr(2+1)-15*15)+30/(25*25)

Câu 5:

a) Input: Chiều dài hai cạnh a,b

    Output: Chu vi

b) B1: Nhập giá trị cho a,b

    B2: Lấy chiều dài a + chiều rộng b tất cả nhân 2

    B3: In ra đáp án

c) Khai báo thư viện:

      Uses crt;

    Khai báo biến: 

      Var a,b, p: real;

d)

Writeln('Nhap chieu dai: '); Readln(a);

Writeln('Nhap chieu rong: '); Readln(b);

Writeln('Chu vi HCN do la: ',(a+b)*2);

Readln

Câu 6:

a) Điều kiện: a<0

b)

Uses crt;

Var a: real;

      Writeln('Nhap a: '); Readln(a);

      If a<0 then writeln('a la so am');

Readln

End.