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.