Question

1. Viết CT nhập 3 số dương a,b,c từ bàn phím, Kiểm tra và in ra màn hình kết quả kiểm tra 3 số đó có thể là 3 cạnh của 1 tam giác hay không.
2. Viết CT nhập chiều cao của 2 bạn A và B, in ra màn hình KQ so sánh chiều cao của 2 bạn. A cao hơn B hoặc A thấp hơn B hoặc A = B.

Answer 1

1)var a,b,c:real;

begin

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

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

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

if (a+b>c) or (a+c>b) or (b+c>a) then writeln(' la 3 canh cua tam giac ')

else writeln(' khong phai la 3 canh cua tam giac ');

readln;

end.

Answer 2

2) var a,b:integer;

begin

write(' Chieu cao ban A: ');readln(a);

write(' Chieu cao ban B: ');readln(b);

if a=b then writeln(' Chieu cao 2 ban bang nhau ');

if a>b then writeln(' Ban A cao hon ban B')

else writeln(' Ban B cao hon ban A ');

readln;

end.