Viết chương trình nhập 3 số từ bàn phím , kiểm tra xem 3 số đó có phải là 3 cạnh của tam giác không?
Viết chương trình nhập 3 số từ bàn phím , kiểm tra xem 3 số đó có phải là 3 cạnh của tam giác không?
By Katherine
By Katherine
Viết chương trình nhập 3 số từ bàn phím , kiểm tra xem 3 số đó có phải là 3 cạnh của tam giác không?
Program Ba_canh_tam_giac;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln(‘Nhap ba so a,b,c:’); readln(a,b,c);
If(a+b>c) and (b+c>a) and (a+c>b) then
writeln(‘a, b va c la 3 canh cua mot tam giac!’);
else writeln(‘a, b va c khong la 3 canh cua mot tam giac!’);
readln
end.
program az;
uses Crt;
var a,b,c : longint;
begin
clrscr;
Write(‘nhap ba so a,b,c : ‘); readln(a,b,c);
If (a + b > c) and (b + c > a) and (c + a > b) and (a > 0) and (b > 0) and (c > 0) then Write(‘3 canh cua tam giac ‘) else Write(‘Khong la 3 canh tam giac ‘);
readln
end.