MindMaple Lite

var a:array[1..1000] of integer;

i,n,d:integer;

begin

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

for i:=1 to n do

begin

write('nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

write('Cac so o vi tri le la ');

for i:=1 to n do

if i mod 2 <> 0 then write(a[i]:8);

writeln;

write('co ',d,' so le');

readln

end.

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

var gt,i:longint;

begin

gt:=1;

for i:=2 to 10 do

gt:=gt*i;

write('10! = ',gt);

readln

end.

var a:array[1..99] of integer;

i,n:integer;

s:longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then s:=s+a[i];

end;

writeln('Tong cac so le cua day la ',s);

write('Day dao nguoc la ');

for i:=n downto 1 do

write(a[i]:8);

readln

end.

a) Xét hai tam giác vuông: \(\Delta HBA\) và  có:

\(\widehat{B}\) chung

\(\Rightarrow\Delta HBA\sim\Delta ABC\left(g-g\right)\)

b) Xét hai tam giác vuông: \(\Delta AHB\) và \(\Delta CHA\) có:

\(\widehat{HAB}=\widehat{HCA}\) (cùng phụ \(\widehat{B}\))

\(\Rightarrow\Delta AHB\sim\Delta CHA\left(g-g\right)\)

c) Do \(\Delta AHB\sim\Delta CHA\left(cmt\right)\)

\(\Rightarrow\) Tỉ số đồng dạng \(k=\dfrac{AB}{AC}=\dfrac{12}{16}=\dfrac{3}{4}\)

\(\Rightarrow\dfrac{S_{\Delta AHB}}{S_{\Delta CHA}}=k^2=\left(\dfrac{3}{4}\right)^2=\dfrac{9}{16}\)