Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Trần Hải
Xem chi tiết
đấng
Xem chi tiết
Nguyễn Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 2 2022 lúc 15:39

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

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

begin

if (a=b) and (b=c) then write('Day la tam giac deu')

else writeln('Day khong la tam giac deu');

end

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

readln;

end.

Hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2021 lúc 22:00

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

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

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

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

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

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

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

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

end;

end

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

readln;

end.

Huynh ThuongHan
Xem chi tiết
Luân Đào
31 tháng 12 2020 lúc 17:30

var a,b,c,s,p: real;

begin

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

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

write('Nhap canh thu ba: '); readln(c);

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

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi tam giac la ',2*p:5:2, '(dvdd)');

writeln('Dien tich tam giac la: ',s:5:2, '(dvdt)');

if (a=b) and (b=c) then writeln('Day con la tam giac deu') else

if (a=b) or (b=c) or (c=a) then writeln('Day la tam giac can') else

if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then writeln('Day la tam giac vuong') else

writeln('Day la tam giac thuong');

if ((a=b) or (b=c) or (c=a)) and ((a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b)) then writeln('Day la tam giac vuong can')

end

else writeln(a:5:2,',',b:5:2,',',c:5:2,' khong la do dai mot tam giac');

end.

Huynh ThuongHan
31 tháng 12 2020 lúc 15:16

help me !!!!!!

Nguyễn Quốc Thịnh
Xem chi tiết
Slime
24 tháng 11 2022 lúc 19:35

a = float(input("Nhap a : "))
b = float(input("Nhap b : "))
c = float(input("Nhap c : "))
if a+b>c and a+c>b and b+c>a:
    if a==b or a==c or b==c:
        if a==c==b:
            print("Day la ba canh cua tam giac deu")
        else:
            print("Day la ba canh cua tam giac can")
    elif (a**2)+(b**2)==c**2 or (a**2)+(c**2)==b**2 or (c**2)+(b**2)==a**2:
        print("Day la ba canh cua tam giac vuong")
    else:
        pass
else:
    print("Day khong phai ba canh cua tam giac")

Hoàng Hải Yến
Xem chi tiết

Program Bai1;

Uses crt;

Var a,b,c:integer;

Begin

CLRSCR;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('c='); Readln(c);

If (a*a=b*b+c*c) then Write('a,b,c la cac canh cua 1 tam giac vuong')

else('a,b,c khong phai la cac canh cua 1 tam giac vuong');

Readln

END.

 

huy nguyen
7 tháng 12 2017 lúc 19:17

program kiem_tra;

uses crt;

var a,b,c:integer;

begin

write('nhập số a');readln(a);

write('nhập số b');readln(b);

write('nhập số c');readln(c);

if(a*a=b*b+c*c)or(b*b=c*c+a*a)or(c*c=b*b+a*a)then writeln('đây là tam giác vuông') else writeln('đây là tam giác thường');

readln;

end.

Lệ Hờ
Xem chi tiết
Bacteria
20 tháng 12 2016 lúc 20:27

progam ban_tu_chon;

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.

 

Thị Kim Ngân Đỗ
Xem chi tiết
Minh Lệ
12 tháng 5 2023 lúc 19:42

Program HOC24;

var a,b,c: integer;

begin

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

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

write('Nhap canh thu ba CA: '); readln(c);

if a*a+c*c=b*b then write('Tam giac vuong tai A');

if a*a+b*b=c*c then write('Tam giac vuong tai B');

if b*b+c*c=a*a then write('Tam giac vuong tai C');

readln

end.