viết chương trình các bài toán sau: viết chương trình và in kết quả của diện tích s của hình tam giác biết độ dài 1 cạnh và chiều cao tương ứng với cạnh đó (a,h là các số nguyên và được thu nhập từ bàn phím ,s=ah/2) b.viết chương trình nhập chiều cao của hai bạn Nam và Anh ,in ra màn hình kết quả so sánh chiều cao của hai bạn

2 câu trả lời

a)

Phần khai báo bạn tự viết nhé.

Var a,h: integer ; 

S: real;

Begin

Writeln(' Do dai canh a la:' ); Readln(a);

Writeln(' Chieu cao h la:' ); Realdn(a);

S:=a*h/2;

Writeln(' Dien tich hinh tam giac la: ', 3:2);

Realdn;

End.

Program (bạn tự viết tên khai báo nhé) ;

Var a , h : integer ; 

S : real ;

Begin

Writeln ( ' Do dai canh a la : ' ); Readln (a) ;

Writeln ( ' Chieu cao cua h la : ' ); Realdn ( h ) ;

S : = a*h/2 ;

Writeln ( ' Dien tich hinh tam giac la : ', 3 : 2 ) ;

Realdn ;

End.