Đây là điền từ vào hay sao ạ?!
<Điền từ> <Phần Program thì điền gì cũng được nhé!>
Program kiemtra;
Uses crt;
Var a,b,c,cv,dt, p: real;
Begin
Clrscr;
Write(' Nhap do dai canh a: '); Readln(a);
Write(' Nhap do dai canh b: '); Readln(b);
Write(' Nhap do dai canh c: '); Readln(c);
cv:=a+b+c;
p:=cv/2;
dt:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(' Chu vi cua tam giac là: ',cv:0:4);
Writeln(' Dien tich cua tam giac là: ',dt:0:4);
Writeln(' Duong cao canh thu 1 la: ',dt*2/a:0:4);
Writeln(' Duong cao canh thu 2 la: ',dt*2/b:0:4);
Writeln(' Duong cao canh thu 3 la: ',dt*2/c:0:4);
If (a=b) or (a=c) or (b=c) then writeln(' Tam giac can');
If (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then
writeln(' Tam giac vuong');
Readln
End.
~~~~~~~~~~~~~~
Program Hoanvi;
Uses crt;
Var a,b,tg:Integer;
Begin
Clrscr;
Write(' Nhap a: ');Readln(a);
Write(' Nhap b: ');Readln(b);
If a>b then
Begin
tg:=a;
a:=b;
b:=tg;
End;
Writeln(a,' ',b);
Readln
End.
