Viết ct = ngôn ngữ lập trình pascal. Thực hiện nhập vào 3 cạnh của 1 tam giác. Tưng ứng vs 3 biến a, b, c
Kiểm tra và xuất thông báo a, b, c có phải là 3 cạnh của tam giác cân hay k? Nếu k phải thì thông báo phải 3 cạnh của tam giác
Vd: nhập cạnh a=6
b=6
c=8
là 3 cạnh của tam giác cân
program hotboy;
uses crt;
var a,b,c : integer;
begin
clrscr;
write(‘nhap do dai canh thu nhat cua tam giac’) ; readln(a);
write(‘nhap do dai canh thu hai cua tam giac’) ; readln(b);
write(‘nhap do dai canh thu ba cua tam giac’) ; readln(c);
if (a=b) or (c=b) or (a=c) then write(‘do la tam giac can’)
else write(‘do khong phai tam giac can’);
readln
end.
Program BTH;
Uses Crt;
var a,b,c:longint;
begin
clrscr;
Write(‘Nhap canh a: ‘);readln(a);
write(‘Nhap canh b:’);readln(b);
write(‘Nhap canh c: ‘);readln(c);
if (a=b) or (a=c) or (b=c) then writeln(‘Day la 3 canh cua tam giac can ‘)
else writeln(‘ khong phai 3 canh cua tam giac can ‘);
readln;
end.