1. Viết chương trình nhập vào 3 cạnh của tam giác kiểm tra và đưa ra màn hình:tam giác thường,tam giác cân,tam giác đều, tam giác vuông
2.Viết chương trình tính diện tích của hình tam giác vs độ dài một cạnh a và chiều cao tương ứng h (a và h là các số tự nhiên đc nhập vào từ bàn phím
3.Viết chương trình tính chu vi,diện tích,của hình tròn vs bk đc nhập vào từ bàn phím
4.Viết chương trình giải phương trình bậc nhất ax+b=0 với a#0 và a,b nhập từ bàn phím
5.Viết chương trình tìm số lớn nhất trong 2 số nguyên a,b
Các bạn giúp mk vs mk sắp ktra rồi các bạn trả lời được câu nào thì các bạn trả lời mk sẽ tick cho
1.
program ct;
var a,b,c: integer;
begin
readln(a,b,c)
if (a+b>c) or ( a+c>b) or ( b+c>a) then writeln(' tam giac ');
if (a=b) and (b= c) then writeln(' tam giac can');
if (a = b = c) then writeln(' tam giac deu');
if (spr(a)= sqr(b)+sqr(c)) or (spr(b)= sqr(a)+sqr(c)) or
(spr(c)= sqr(a)+sqr(b)) then writeln(' tam giac vuong');
readln
end.
trong đó sqr là: "bình phương" nha bn
nhớ chọn cho mk nha!
1.
Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;
Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
if (a=b) and (b=c) then write('la tam giac deu') else
if (a=b) or (b=c) or (c=a) then write('la tam giac can') else if (a*a = b*b+c*c) or (b*b =c*c+a*a) or ( c*c= b*b+a*a) then write('la tam giac vuong');
End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.
5.
program snln;
var a, b: integer;
begin