Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program ba_canh_cua_tam_giac;
uses crt;
var a,b,c: real;
BEGIN
Write('nhap do dai canh a'); Readln(a);
Write('nhap do dai canh b'); Readln(b);
Write('nhap do dai canh c'); Readln(c);
If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')
else write('do khong la do dai cua mot tam giac');
Readln;
END.
Thanks
bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn
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 (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,b,c;
bool kt;
int main()
{
cin>>a>>b>>c;
if (a+b>c && b+c>a && a+c>b)
{
kt=false;
if (a==b && b!=c && a!=c) kt=true;
if (b==c && b!=a && c!=a) kt=true;
if (a==c && a!=b && c!=b) kt=true;
if (kt==true) cout<<"YES";
else cout<<"NO";
}
else cout<<"NO";
return 0;
}
#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";
}
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")
#include <bits/stdc++.h>
using namespace std;
double a,b,c,h,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
if (s>50) cout<<"Dien tich tam giac lon hon";
else cout<<"Dien tich tam giac nho hon";
return 0;
}
uses crt;
var a, b, c: real;
begin
clrscr;
writeln('Kiem Tra Tam Giac');
write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Do La Ba Canh Tam Giac');
if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then
writeln('Tam Giac Vuong')
else if (a = b) or (a = c) or (b = c) then
begin
if (a = b) and (b = c) then
writeln('Tam Giac Deu')
else
writeln('Tam Giac Can');
end
else writeln('Tam Giac Thuong');
end
else write('Khong Phai Tam Giac');
readln
end.
Var a,b,c: integer;
begin writeln('nhap ba so duong: ');Readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('3 so nay co the la do dai 3 canh cua 1 tam giac')
else writeln('3 so nay khong the la do dai 3 canh cua 1 tam giac');
End.