Viết giúp em chương trình tính diện tích tam giác vuông ạ

2 câu trả lời

Uses crt;

Var a,b,s:real;

Begin

Clrscr;

Read(a,b); 

s:=1/2*(a*b);

Write(s:0:2);

Readln;

End.

uses crt;

var a,b,c:byte;

begin

clrscr;

writeln ('nhap a');readln(a);

writeln('nhap b');readln(b);

c:=1/2*a*b;

writeln('dien tich c =', c);

readln;

end.

Câu hỏi trong lớp Xem thêm