$#QLinkVN$

Bài `1`: ảnh `1`

Bài `2`: ảnh `2`

Bài 1 :

uses crt;

var a, b : integer;

begin

clrscr;

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

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

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

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

readln

end.

Bài 2 :

uses crt;

var a, b, c : integer;

begin

clrscr;

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

if (a + b > c) and (a + c > b) and (b + c > a) then

if (a = b) and (b = c) then\

write('a, b, c la canh tam giac deu')

else write('a, b, c khong la canh tam giac deu')

else write('a, b, c khong la canh tam giac');

readln

end.