Bài 8: Em hãy viết chương trình theo các bước sau:
a) Nhập vào ba cạnh của một tam giác
b) Sử dụng câu lệnh If…then lồng nhau để thông báo ra màn hình kết quả trong các trường hợp sau:
– Tam giác đều
– Tam giác cân
– Không phải là tam giác đều hay tam giác cân
program tamgiac;
uses crt;
var a,b,c:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
if (a=b)and(b=c) then write(‘Tam giac deu‘);
if (a=b) or (a=c) or (c=b) then write(‘Tam giac can’) else
write(‘Khong phai la tam giac deu hay tam giac can’);
readln;
end.
var a,b,c:longint;
begin
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
if (a=b) and (b=c) then write(‘Tam giac deu’) else
if (a=b) or (a=c) or (c=b) then write(‘Tam giac can’) else
write(‘Khong phai la tam giac deu hay tam giac can’);
readln;
end.