Viết chương trình pascal nhập 3 số a,b,c; kiểm tra xem nó

730

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học có đáp án (Phần 3)

Câu 39: 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;

end.

Đánh giá

0

0 đánh giá