Viết chương trình cho phép nhập vào ba số a,b,c kiểm tra xem 3 số đó có phải độ dài của ba cạnh tam giác hay không. Nếu đúng in dòng chữ là độ dài ba canh của tam giác va tính chu vi của tam giác đó. Ngược lại nếu sai in dòng chữ không phải là độ dài 3 cạnh của tam giác
GIÚP MÌNH VỚI MÌNH SẮP THI RỒI
XIN CẢM ƠN
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('La do dai ba canh cua tam giac');
writeln('Chu vi tam giac la: ',a+b+c:4:2);
end
else writeln('Khong phai la do dai 3 canh cua tam giac');
readln;
end.
bạn ơi bạn có thể giải thích giúp mình repeat, until là gì không ạ và hình như chương trình của bạn mình nghĩ chắc đúng rồi đó nhưng bạn xét dùm mình xem chỗ var a,b,c,CV:word thì có đúng kh ạ