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.

27 tháng 12 2020

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;

}

23 tháng 12 2016

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

23 tháng 12 2016

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

5 tháng 5 2023

var a,b,c:integer;

begin

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

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

write('c = ');readln(c);

if (a+b>c) and (a+c>b) and (b+c>a) then

write('ba so do co the la do dai ba canh cua tam giac')

else write('ba so do khong the la do dai ba canh cua tam giac');

readln

end.

18 tháng 12 2022

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.

9 tháng 11 2016

1.uses crt;

var n,gt:longint;

begin

clrscr;

repeat

write('nhap so n:');readln(n);

until n>0;

gt:=1;

while n>0 do

begin

gt:=gt*n;

n:=n-1;

end;

writeln('giai thua cua n la:',gt);

readln

end.

2. uses crt;

var a,b,c:real;

begin

clrscr;

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

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

write('nhap c=');readln(c);

if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');

readln

end.

 

23 tháng 11 2016

Cái chỗ chữ " repeat " cần thêm chữ " begin " nữa !

24 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if ((a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)) cout<<"Day la ba canh trong mot tam giac";

else cout<<"Day khong la ba canh trong mot tam giac";

return 0;

}

27 tháng 10 2021

bạn ơi đúng không vậy

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

}