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.

uses crt;

var a,b:real;

begin

clrscr;

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

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

writeln(sqrt(sqr(a)+sqr(b)):4:2);

readln;

end.

31 tháng 12 2020

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.

31 tháng 12 2020

help me !!!!!!

2: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

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

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

cout<<fixed<<setprecision(2)<<s;

return 0;

}

21 tháng 2 2023

Giúp mình ý tưởng bài đỉnh đồi pascal

 

21 tháng 2 2023

Cho mình ý tưởng bài này với!loading...  

19 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c, S;
cin >> a >> b;
S=(1.0/2)*a*b;
c=sqrt(a*a+b*b);
cout << fixed << setprecision(2) << "Dien tich la " << (double)S << "\nCanh huyen la " << (double)c << endl;
return 0;
}

Chúc bn học tốt!

13 tháng 2 2023

uses crt;

var a: integer;

begin clrscr;

Writeln('Nhap vao do dai canh cua tam giac deu: '); readln(a);

Writeln('Chu vi cua tam giac deu do la: ',a*3);

readln;

end.

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.

 

7 tháng 12 2017

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.