program bai2;

uses crt;

var a,b: real;

begin

clrscr;

write('nhap a ='); readln(a);

write('nhap b ='); readln(b);

if a > b then writeln(a , ' la so lon nhat ') else

writeln(b , ' la so lon nhat ');

readln;

end.

hình bạn tự vẽ đc ko ( nếu vẽ ko đc gửi tin mik biết nhé )

a) xét tam giác OAM và tam giác OBM có

                OM cạnh chung 

                O1 = O2 ( vì Ot là tia phân giác )

                OA = OB ( gt )

=> tam giác OAM = tam giác OBM ( c.g.c )

b) vì tam giác OAM = tam giác OBM 

=> AM = BM ( cạnh tương ứng ) 

=> góc AMO = góc OBM ( góc tương ứng )

=> OM vuông góc với AB 

C) xét tam giác ANO và tam giác BNO có

      ON cạnh chung

      OA = OB ( gt )

      O1 = O2 ( Vì Ot là tia phân giác )

=> tam giác ANO = tam giác BNO ( c.g.c )

=> NA = NB ( cạnh tương ứng )

có j ko hiểu hỏi lại nka

t-i-c-k mik nka !!

2;3;6

tớ thấy 1/2+1/3+1/6=1 nên tớ làm vậy

Số bạn nữ chiếm số phần trăm của lớp là :

14 : 32 = 0,4375 = 43,75% 

       a² + b² < 1 + ab.

<=> a² + b² - ab  < 1 

<=> (a+b)(a^2 - ab + b^2 ) < a+b( nhân mỗi bên cho a+b)

<=> a³ +b³ < a+b

<=> (a³ +b^3)(a³ +b³)  <  ( a⁵ + b⁵) (a+b)

<=> a⁶ +2a³b³ +b⁶ <  a⁶ +a⁵b+ab⁵ +b⁶

<=> 2a³b³ < a⁵b+ab⁵ ( bớt mỗi bên cho a⁶ +b⁶)

<=>  a⁵b+ab⁵ -  2a³b³  > 0

<=> ab(a⁴+b⁴-2a²b²⁾ > 0

<=> ab(a²-b²) > 0 ( đúng với mọi a,b>0)

=>dpcm

tick nha (mink ấn mỏi quá)

Program TAMGIAC;
Uses crt;
Var a,b,c,s,p: real;
Begin
Clrscr;

Write('nhap a =');
readln(a);
Write ('nhap b =');
readln(b); Write('nhap c =');
readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
if (a=b) and (b=c) then write('la tam giac deu') else

End
Else
Writeln('a,b,c khong phai la ba canh cua tam giac') ;
Readln;
End.

4.

program bai4;

uses crt;

var a,b : real;

begin

clrscr;

write('nhap so a ='); readln(a);

write('nhap so b ='); readln(b);

if a > b then writeln('so lon nhat la : ',a:4:2) else

writeln('so lon nhat la : ' ,b:4:2);

readln;

end.

3.

Program PT_bac_nhat;
Uses Crt;
Var
a,b:Integer;
x:Real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT');
Writeln(' aX + b = 0');
Write('-Nhap he so a= ');
Readln(a);
Write('-Nhap he so b= ');
Readln(b);
If a=0 Then
If b=0 Then
Writeln('+Phuong trinh vo dinh')
Else
Writeln('+Phuong trinh vo nghiem')
Else
Begin
x:=-b/a;
Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
End;
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.

1 tá bút chì = 12 cái bút chì Vậy Mai có 12 cái bút chì.

Số bút chì của Hồng là:

12 + 2 = 14 (cái)

Bình có nhiều bút chì hơn Mai, nhưng lại có ít hơn Hồng. Vậy Bình có 13 cái bút chì (12 < 13 < 14)

Cả ba bạn có số bút chì là:

12 + 14 + 13 = 39 (cái)

Program bai1;

uses crt;

var n,i: integer;

s:real;

begin

clrscr;

s:=0;

write('nhap n ='); readln(n);

for i:= 1 to n do

s:=s+(2*i-1)/(2*i);

writeln('S = ' ,s :4:2);

readln;

end.