câu 1: Nhập vào ba số a,b,c và kiểm tra xem có phải là 3 cạnh của tam giác không?nếu phải thì kiểm tra xem nó thuộc tam giác gì? Câu 2. Bạn có 1000 đ đem gửi ngân hàng với lãi suất 8% mỗi tháng . Sau mỗi tháng tiền lãi được nhập vào để tính lãi suất tháng sau . Bạn muốn để dành cho đến khi số tiền tăng lên là x đ . Vậy bạn phải để trong bao lâu mới có được số tiền ấy? Câu 3 : Viết chương trình đổi cơ số từ một số thập phân (hệ 10) sang số nhị phân (hệ nhị phân) .Câu 4: Lập trình nhập và một xâu ký tự S rồi in ra số lần xuất hiện các ký tự có trong xâu. giúp mình với

Câu 1:

Program BTT;
Uses crt;
Var a,b,c: real;
Begin
        Clrscr;
        Write('Nhap do dai canh a: '); Readln(a);
        Write('Nhap do dai canh b: '); Readln(b);
        Write('Nhap do dai canh c: '); Readln(c);

        If (a+b>c) and (a+c>b) and (b+c>a) then
        Begin
                If (a=b) and (b=c) then Write('Tam giac deu')
                Else If (a=b) or (b=c) or (c=a) then Write('Tam giac can')
                Else If (sqr(a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then Write('Tam giac vuong')
                Else Write('Tam giac thuong');
        End

        Else Write('Khong phai tam giac');
        Readln
End.

Bài 2:

Const Fi='TIETKIEM.INP';
      Fo='TIETKIEM.OUT';

Var f,g: text;
    x,z: extended; t: longint;

Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);

        Read(f,x);
        z:=1000; t:=1;

        While z<x do
        Begin
                z:=z+(z*8/100);
                If z<x then inc(t);
        End;

        Write(g,t);
        Close(f);
        Close(g);
End.