1. Viết CT nhập 3 số dương a,b,c từ bàn phím, Kiểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là 3 cạnh của 1 tam giác hay không.
2. Viết CT nhập chiều cao của 2 bạn A và B, in ra màn hình KQ so sánh chiều cao của 2 bạn. A cao hơn B hoặc A thấp hơn B hoặc A = B.
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
#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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
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
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
#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;
}
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a,b,c,p,s:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b=');c 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
begin
kt:=0;
if sqr(a)=sqr(b)+sqr(c) then kt:=1;
if sqr(b)=sqr(a)+sqr(c) then kt:=1;
if sqr(c)=sqr(a)+sqr(b) then kt:=1;
if kt=0 then writeln('Day khong la tam giac vuong')
else begin
writeln('Day la ba canh trong mot tam giac vuong');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich tam giac vuong la: ',s:4:2);
end;
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
1)var a,b,c:real;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')
else writeln(' khong phai la 3 canh cua tam giac ');
readln;
end.
2) var a,b:integer;
begin
write(' Chieu cao ban A: ');readln(a);
write(' Chieu cao ban B: ');readln(b);
if a=b then writeln(' Chieu cao 2 ban bang nhau ');
if a>b then writeln(' Ban A cao hon ban B')
else writeln(' Ban B cao hon ban A ');
readln;
end.