sai nhe chuc hoc tot

sai                             !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PROGRAM DIEN H TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien h tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien h S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.

* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}

kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)

pikachu , ibui

An ơi, viết 5 con Pokemon mà, của cậu mới được 2 con Pikachu và Eevee thôi
 

Hack lão p35 nhé

program sosanh;

uses crt;

var a,b,c : real;

begin

      readln(a,b);

      c:= a-b;

      if c>0 then writeln(' a lon hon b');

      if c<0 then writeln('a nho hon b');

      if c=0 then writeln('a bang b');

      readln;

end.

Dốt tin nên chỉ làm dc vậy, đúng thì 5 sao nhé

B