Question

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

Answer 1

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.

Answer 2

Program bai1;

uses crt;

var a,b,c,cv:word;

begin

clrscr;

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

begin

writeln('a,b,c tao nen tam giac');

cv:=a+b+c;

writeln('chu vi tam giac = ' ,cv)

end

else

writeln('a,b,c khong tao nen tam giac');

readln;

end.