Bài 1: Nhập vào 3 cạnh của tam giác:
a, Kiểm tra xem 3 cạnh đó có thể tạo thành tam giác cân hay không
b, Kiểm tra xem 3 cạnh đó có thể tạo thành tam giác đều hay không
c, Kiểm tra xem 3 cạnh đó có thể tạo thành tam giác vuông hay không
Bài 2 :Nhập vào 3 số nguyên a, b, c kiểm tra và in ra số lớn nhất ( max) và in ra số nhỏ nhất (min)
Bài 3 :Nhập vào số nguyên a kiểm tra và in ra thông báo a là chẵn hay lẻ
1
uses crt;
var a,b,c :real;
BEGIN
clrscr;
write(‘nhap canh a thu nhat’); Read(a);
write(‘nhap canh b thu hai:’); Readln(b);
write(‘nhap canh c thu ba’); Readln(c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write(‘ba canh tren khong phai cua mot tam giac’)
else
if (a=b) or (b=c) or (c=a) then write(‘tam giac tren la tam giac can’);
else
if a=b=c then write(‘tam giac tren la tam giac deu’)
else
if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write(‘tam giac tren la tam giac vuong’);
readln;
END.
2
uses crt;
var a,b,c,Min,Max:integer;
begin
clrscr;
write(‘nhap 3 canh a,b,c:’);readln(a,b,c);
if (a>b>c) then Max:=a else
if (b>a>c) then Max :=b else
if (c>a>b) then Max:=c ;
write(‘So lon nhat la:’,Max);
if (a<b<c) then Min:=a else
if (b<a<c) then Min:=b else
if (c<a<b) then Min:=c ;
write(‘so nho nhat la:’,Min);
readln;
end.
3
uses crt;
var a:integer;
begin
clrscr;
write(‘Nhap a: ‘);readln(a);
if a mod 2 =0 then write(a,’la so chan’) else
write(a,’la so le);
readln;
end.