Question

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

Answer 1

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!

Answer 2

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.

 

Answer 3

5.

program snln;

var a, b: integer;

begin