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.

12 tháng 12 2017

program kiem_tra;

ues crt;

var a,b,c:integer;

begin

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

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

write('nhap so 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('day la tam giac vuong')else writeln('day la tam giac thuong');

readln;

end.

18 tháng 10 2021

#include <bits/stdc++.h>
using namespace std;
int main() {
double a, b, c;
cin >> a >> b >> c;
if(a==b)
{if (b!=c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}
if(b==c) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac deu";}}
if(b==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a==c)
{if(a!=b) {cout << "Ba so da nhap la do dai ba canh cua mot tam giac can";}}
if(a!=b)
{if(b!=c) {cout << "Ba so da nhap khong la do dai ba canh cua mot tam giac can";}}
return 0;
}

Chúc bn học tốt! (Bonus thêm trường hợp không là độ dài tam giác cân và là độ dài của tam giác đều nha!)

16 tháng 12 2021

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.

2 tháng 6 2022

a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
    print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
    print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
    print(a,b,c,"la ba canh cua tam giac")
else:
    print(a,b,c,"khong la ba canh cua tam giac")

23 tháng 2 2022

uses crt;
var a, b, c: real;
begin
clrscr;
 writeln('Kiem Tra Tam Giac');
    write('Nhap Ba Canh a, b, c:'); readln(a, b, c);
    if (a+b>c) and (a+c>b) and (b+c>a) then 
    begin
     writeln('Do La Ba Canh Tam Giac');
     if (a * a + b * b = c * c) or (a * a + c * c = b * b) or (b * b + c * c = a * a) then 
      writeln('Tam Giac Vuong')
     else if (a = b) or (a = c) or (b = c) then 
     begin
      if (a = b) and (b = c) then 
       writeln('Tam Giac Deu')
      else 
       writeln('Tam Giac Can');
     end
     else writeln('Tam Giac Thuong');
    end
    else write('Khong Phai Tam Giac');
    readln
end.

25 tháng 3 2018
VAR i,n:Integer; a :array[1..100] of Integer; BEGIN write('nhap so phan tu ');readln(N); for i := 1 to N do BEGIN write('phan tu thu ',i,' ');readln(A[i]); END; for i := 1 to N do BEGIN writeln; write(a[i]); END; 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.

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")

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

readln;

end.