Chủ đề:

Lập trình đơn giản

Câu hỏi:

 

Hãy tìm lỗi đoạn chương trình và sửa lại cho đúng

Program Tam_giac;

Var a, b, c, h, Cv , Dt: Integer;

Begin

Write('nhap canh tuong ung a='); readln('a')

Write('nhap chieu cao h='); readln('h')

Đt:=1/2*a*h

Cv :=a+b+C;