uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

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

begin

if sqr(a)=sqr(b)+sqr(c) then writeln('Vuong')

else if sqr(b)=sqr(a)+sqr(c) then writeln('Vuong')

else if sqr(c)=sqr(a)+sqr(b) then writeln('Vuong')

else writeln('La tam giac khong vuong');

end

else writeln('Khong la ba canh trong mot tam giac');

readln;

end.

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

writeln(a+b+c:4:2);

readln;

end.

Program dung;

uses crt;

var s,a,b: real;

begin

clrscr;

write('Nhap a; b : '); readln(a,b);

s:=(a*b)/2;

writeln('Dien tich tam giac vuong la: ',s:1:2);

readln;

end.

Viết chương trình ở ngôn ngữ lập trình nào vậy bạn ?

a = float(input('Nhập cạnh thứ nhất (A): '))

b = float(input('Nhập cạnh thứ hai (B): '))

c = float(input('Nhập cạnh thứ ba (C): '))

if a == b == c:

       print('Tam giác đều')

elif a == b or b == c or c == a:

       if a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:

              print('Tam giác vuông cân')

       else:

              print('Tam giác cân')

elif a*a + b*b == c*c or a*a + c*c == b*b or b*b + c*c == a*a:

       print('Tam giác vuông')

else:

       print('Tam giác thường')

uses crt;

var a,b:real;

begin

clrscr;

write('Nhap do dai canh thu nhat:'); readln(a);

write('Nhap do dai canh thu hai:'); readln(b);

writeln(sqrt(sqr(a)+sqr(b)):4:2);

readln;

end.