Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1031
1059
Uses crt;
var a, b, c: integer;
begin
CLRSCR;
write ('nhap a: ');
readln (a);
write ('nhap b: ');
readln (b);
write ('nhap c: ');
readln (c);
if (a+b > c) and (b+c > a) and (a+c > b) then writeln ('ba canh nay co te tao thanh 1 tam giac')
Else writeln ('BA CANH NAY KHONG THE TAO THANH 1 TAM GIAC');
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
28
12
Program Ba_canh_tam_giac;
uses crt;
var a,b,c: real;
begin
write('Nhap 3 canh tam giac a,b,c:');readln(a,b,c);
If (a+b>c) and (b+c>a) and (a+c>b) then writeln('a,b,c la 3 canh cua 1 tam giac') else
writeln('a,b,c khong phai la 3 canh cua 1 tam giac');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
28
12
Cho mik 5 sao va CTLHN nha. OvO
Bảng tin