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

Ngọc Nguyễn Ngày: 18-07-2023 Tổng hợp kiến thức

171

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (phần 5) hay nhất được biên soạn và chọn lọc giúp bạn ôn luyện và đạt kết quả cao trong bài thi môn Tin học.

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

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 đó

Lời giả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;