Câu 4:

a) m-n*n*n<>0

b) sqr(u+2)/12

c) 2*(a+b*b)<=0

d) 2*x*y>=5

Câu 5:

uses crt;

  var x, y: integer;

        a, b, T, m, n: real;

begin

 clrscr;

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

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

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

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

 m:=(x*a)*15/100;

 n:=(y*b)*15/100;

 writeln('So tien mua x loc sua la: ', m);

 writeln('So tien mua y goi keo la: ', n);

 T:=m+n;

 writeln('So tien ban An phai thanh toan la: ', T);

 readln

end.

Câu 4:

a. m - n*n*n <> 0
b. sqr(u+2):12
c. 2*(a+b*b)<=0
d. 2*x*y>=5

Câu 5:

Uses crt;
Var x, y: Integer;
      a,b, tong: Real;
Begin
Clrscr;
Write('Nhap x = '); readln(x);
Write('Nhap y = '); readln(y);
Write('Nhap a = '); readln(a);
Write('Nhap b = '); readln(b);
Writeln('So tien phai mua x loc sua la: ',x*a*15/100);
Writeln('So tien phai mua y loc sua la: ',y*b*15/100);
tong:=x*a*15/100+y*b*15/100;
Writeln('Tong so tien An phai tra la: ',tong);
Readln
End.