Viết chương trình xét 3 số a, b, c có phải là 3 cạnh của một tam giác hay không?
2 câu trả lời
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a);
readln(b);
readln(c);
if (a+b>c) and (a+c>b) and (b+c>a) then write(a,',',b,',',c,' la 3 canh cua tam giac') else write(a,',',b,',',c,' khong la 3 canh cua tam giac');
readln;
end.
mk làm hơi dài ở phần write nếu k thik thì bạn có thể rút gọn nhé
Program BTT;
Uses crt;
Var a,b,c: extended;
Begin
Clrscr;
Write('Nhap a, b, c: '); Readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then Write('Thoa man')
Else Write('Khong thoa man');
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
