1) viết phương trình để nhập 3 cạnh của 1 tam giác, kiểm tra xem đó có phải tam giác cân hay không ? 2) viết phương trình nhập vào 2 số nguyen a,b với a<b tính tổng các số lẻ trong đoạn a,b các bạn giúp mình với cảm ơn nhìuuuu

Câu 1:

Program cau1;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('Nhap lan luot 3 canh cua tam giac:');

Readln(a,b,c);

If (a=b) or (b=c) or (a=c) then Writeln('Tam giac nay la tam giac can')

                                              Else Writeln('Tam giac nay khong phai la tam giac can');

Readln

End.

Câu 2:

Program cau2;

Uses crt;

Var a,b,S:integer;

Begin

Clrscr;

S:=0;

Write('a='); Readln(a);

Write('b='); Readln(b);

If a<b then

  Begin

  For i:=a to b do If (i mod 2<>0) then S:=S+i;

  Writeln('Tong cac so le trong doan a,b la:',S);

  End

Else Writeln('Hay nhap so khac');

Readln

End;