bài 1: (giải  theo dạng đủ)

uses crt;
var m,n,x: integer;
y: real;
begin
clrscr;
write ('nhap m: ');   readln (m);
write ('nhap n: ');   readln (n);
write ('nhap x: ');   readln (x);
y:=((sqr(m)-sqrt(n))/(10*x));
writeln ('gia tri cua bieu thuc la: ',y:1:2);
readln;
end.

bài 2: (giải theo dạng đủ)

uses crt;

var a,b,x:real;
begin

clrscr;
write ('nhap a= ');   readln(a);
write ('nhap b= ');   readln(b);
if (a=0) then
if (b=0) then

writeln('phuong trinh co vo so nghiem')
else

writeln('phuong trinh vo nghiem')
else
writeln('phuong trinh co nghiem x=',-b/a:4:2);
readln;
end.

bài 3: (giải theo dạng thiếu)

uses crt;

var a,b,c,d: integer;

begin

clrscr;

write ('nhap a: ');  readln (a);

write ('nhap b: ');  readln (b);

write ('nhap c: ');   readln (c);

write ('nhap d: ');  readln (d);

if (a>b) and (a>c) and (a>d) then writeln ('so lon nhat la: ',a);

if (b>a) and (b>c) and (b>d) then writeln (so lon nhat la: ',b);

if (c>b) and (c>a) and (c>d) then writeln ('so lon nhat la: ',a);

if (d>a) and (d>c) and (d>b) then writeln (so lon nhat la: ',b);

readln;

end.

Câu 1 :

uses crt;

var a, b, c : integer;

begin

clrscr;

write('Nhap ba so a, b, c : '); readln(a, b, c);

if (a*a = b*b + c*c) or (b*b = a*a + c*c) or (c*c = a*a + b*b)

then write('a, b, c la bo so pitago')

else write('a, b, c khong la bo so pitago');

readln

end.

Câu 2 :

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap hai so a, b = '); readln(a, b);

if (a = 0) and (b = 0) then write('Vo so nghiem');

if (a = 0) and (b <> 0) then write('Vo nghiem');

if a <> 0 then write('x = ', -b / a : 2 : 2);

readln

end.

Câu 3 :

uses crt;

var a, b, c , d, m : integer;

begin

clrscr;

write('Nhap 4 so a, b, c, d = '); readln(a, b, c , d);

m := a;

if b > m then m := b;

if c > m then m := c;

if d > m then m := d;

write('So lon nhat : ', m);

readln

end.