Câu 5. Viết chương trình tính thể tích và diện tích toàn phần hình hộp chữ nhật với độ dài các cạnh được nhập từ bàn phím. Bài 6. Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết ba cạnh của tam giác của tam giác?

câu 5 :

var n,a,b:longint;
begin
read(a,b,n);
writeln(a*b);
writeln((a+b)*2);
writeln(n*n);
write(n*4);
end.

6/

Program BTH;
Uses crt;
Var a,b,c:longint;
Begin
clrscr;

write('Nhap do dai cannh thu hai: ');readln(a,b,c);
If (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
writeln('Day la tam giac vuong')

else writeln('Day khong phai la tam giac vuong');
readln;
End.

5/

Program BTH;
Uses crt;
var dai,rong,cao,v,s:longint;
Begin
        clrscr;
        Write('Nhap chieu dai: ');readln(dai);
        Write('Nhap chieu rong: ');readln(rong);
        Write('Nhap chieu cao: ');readln(cao);
        v:=dai*rong*cao;
        s:=((dai+rong)*2*4)+(dai*rong*2);
        writeln('The tich hinh hop chu nhat la: ',v);
        Writeln('Dien tich toan phan cua hinh hop chu nhat la: ',s);
        readln;
end.

6/

Program BTH;
Uses crt;
Var a,b,c:longint;
Begin
     clrscr;
     write('Nhap do dai canh thu nhat: ');readln(a);
     write('Nhap do dai cannh thu hai: ');readln(b);
     write('Nhap do dai canh thu ba: ');readln(c);
     If (c*c=a*a+b*b)or(b*b=c*c+a*a)or(a*a=b*b+c*c) then
        writeln('Day la tam giac vuong')
     else writeln('Day khong phai la tam giac vuong');
     readln;
End.