Viết chương trình nhập vào 3 số nguyên dương a,b,c từ bàn phím in ra KQ

355

Câu 45: Viết chương trình nhập vào 3 số nguyên dương a,b,c từ bàn phím in ra KQ 3 số đó có thể là độ dài 3 cạnh của 1 tam giác hay ko_?

Lời giải:  

uses crt;

var a,b,c:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')

else writeln('day khong la 3 canh trong mot tam giac');

end

else writeln('vui long nhap 3 so lon hon 0');

readln;

end.

Đánh giá

0

0 đánh giá