Những câu hỏi liên quan
Linh Thùy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 4 2021 lúc 21:33

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.

Bình luận (1)
nguyễn thị diệu linh
Xem chi tiết
Rin Huỳnh
16 tháng 12 2021 lúc 6:14

Uses crt;

Var a, b, c:real;

Begin

Readln(a);

Readln(b);

Readln(c);

If (a + b > c) or (a + c > b) or (b + c > a) then writeln('tam giác')

Else writeln('Khong phai tam giac');

Readln

End.

Bình luận (0)
Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

Bình luận (0)
Đỗ Thành Nhân
3 tháng 5 lúc 11:14

nbbnbnbbnn\(\dfrac{^{ }}{ }\)

Bình luận (0)
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";

}

Bình luận (0)
Quốc Việt A Nguyễn
Xem chi tiết
HAT9
18 tháng 12 2022 lúc 22:11

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.

Bình luận (0)
nguyễn văn đức
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 1 2022 lúc 20:56

#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;

}

Bình luận (0)
Thị Ngọc Phan
Xem chi tiết
Bacteria
23 tháng 12 2016 lúc 22:24

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ình luận (0)
Trịnh Thị Như Quỳnh
23 tháng 12 2016 lúc 19:39

bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn

Bình luận (0)
duc dung
Xem chi tiết
duc dung
15 tháng 12 2021 lúc 9:10

giúp e vs ạ e cảm ơn nhiều<333

 

Bình luận (0)
Mỹ Uyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 12 2020 lúc 21:16

Câu 1: 

uses crt;

var a,s,p:real;

begin

clrscr;

repeat

write('Nhap do dai canh hinh vuong:'); readln(a);

until a>0;

p:=4*a;

s:=sqr(a);

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

writeln('Dien tich hinh vuong la: ',s);

readln;

end.

Câu 2: 

uses crt;

var a,b,t,s,h:real;

begin

clrscr;

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

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

t:=a+b;

h:=a-b;

s:=a*b;

writeln('Tong la: ',t:4:2);

writeln('Hieu la: ',h:4:2);

writeln('Tich la: ',s:4:2);

readln;

end.

Câu 3: 

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.

Bình luận (0)