viết chương trình nhập vào 3 số nguyên a,b,c.Kiểm tra xem 3 số đó có là các cạnh của một tam giác và thuộc kiểu tam giác gì ?
K
Khách
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.
Những câu hỏi liên quan
S
24 tháng 11 2022
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")
3 tháng 4 2021
uses crt;
const fi='bai1.inp';
var f1:text;
a,b,c,cv,dt,p:real;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(f1,'Chu vi la: ',cv:4:2);
writeln(f1,'Dien tich la: ',dt:4:2);
end
else writeln(f1,'Day khong la ba canh trong mot tam giac');
close(f1);
readln;
end.
13 tháng 2 2022
cho em hỏi cái này viết ra thuật toán thì viết kiểu sao ạ
18 tháng 2 2022
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.
ML
12 tháng 5 2023
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.
DQ
5 tháng 12 2016
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('nhap ba canh cua tam giac'); readln(a,b,c);
if a+b>c and a+c>b and b+c>a then write(a,' ',b,' ',c 'la ba canh cua tam giac') else write(a,' ',b,' ',c 'khong la ba canh cua tam giac');
readln
end.
Program Kiem_tra;
uses crt;
var a,b,c: real;
begin
clrscr;
write('nhap canh a =');
readln(a);
write('nhap canh b =');
readln(b);
write('nhap canh c =');
readln(c);
if (a+b < c) or (a+c <b) or (c+b <a) then
writeln('khong phai ba canh cua tam giac ');
else
if ( a = b) and (b=c) then
writeln('la tam giac deu ')
else
if ( a= b ) or (b=c) or (a=c) then
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('la tam giac vuong can')
else writeln('la tam giac can')
else
if ( a*a =b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln('la tam giac vuong')
else writeln('la tam giac thuong);
readln;
end.