viết chương trình nhập vào độ dài các cạch của tam giác đó rồi tích chu vi của tam giác.kiểm tra xem tam giác đó có phải tam giác đều ko.

2 câu trả lời

Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('Nhap lan luot 3 canh tam giac:'); 

Readn(a,b,c);

Writeln('Chu vi cua tam giac:',a+b+c);

If (a=b) and (b=c) then writeln('Tam giac do la tam giac deu')

                              Else writeln('Tam giac do khong phai la tam giac deu');

Readln

End.

Viết theo ngôn ngữ pascal:

uses crt; 

var a,b,c,s : real;

begin

clrscr;

writeln('Nhap so do 3 canh cua tam giac: ');

write('Nhap so do canh dau tien: '); readln(a); 

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

write('Nhap so do canh thu ba: '); readln(c);

s : = a + b + c;

writeln('Chu vi tam giac la: ',s:0:2);

if (a = b) and (a=c) then write('a, b, c la ba canh cua tam giac deu');

readln

end.