Những câu hỏi liên quan
đấ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.

Trần Hải
Xem chi tiết
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.

Bét Đe
Xem chi tiết
Bùi Anh Tuấn
28 tháng 12 2020 lúc 20:29

Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 20:51

uses crt;

var a,b,c:real;

kt:integer;

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 (a+c>b) and (b+c>a) then 

begin

kt:=0;

if (a=b) and (a<>c) and (b<>c) then kt:=1;

if (b=c) and (b<>a) and (c<>a) then kt:=1;

if (c=a) and (c<>b) and (a<>b) then kt:=1;

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

else writeln('Day la tam giac can');

end

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

readln;

end.

Tuấn anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 20:08

uses crt;

var a,b,c,p,s: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

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

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

writeln('Chu vi la: ',2*p:4:2);

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

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

32.Nguyễn Lê Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
31 tháng 12 2022 lúc 0:34

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a==b && b==c) cout<<"Phai";

else cout<<"khong phai";

}

Trần Thị Hà Trang
Xem chi tiết
Thanh Nhàn Vương
24 tháng 2 2022 lúc 13:19

vải :)

 

Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:26

11:

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b && b+c>a) cout<<"YES";

else cout<<"NO";

return 0;

}

Lê Thái Hưng Thịnh
Xem chi tiết
Văn Trần Đình
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 12 2021 lúc 11:46

uses crt;

var a,b,c:integer;

begin

clrscr;

readln(a,b,c);

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Phai')

else writeln('Khong phai');

readln;

end.