Viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó có phải đọ dài 3 cạnh 1 tam giác hay không
203
29/10/2023
Câu 24: Viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó có phải đọ dài 3 cạnh 1 tam giác hay không rồi in ra màn hình, nếu là 3 cạnh tam giác thì tính chu vi của tam giác đó
Trả lời
var a,b,c,cv:word;
begin
write('nhap vao so a=');readln(a);
write('nhap vao so b=');readln(b);
write('nhap vao so c=');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c tao nen tam giac')
else
writeln('a,b,c khong tao nen tam giac');
cv:=a+b+c;
writeln('chu vi tam giac:',cv);
readln;
end.
