uses crt;

var i:integer;

a:array[1..100]of integer;

begin

clrscr;

for i:=1 to 20 do

begin

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

end;

for i:=1 to 20 do

if a[i] mod 2=1 then write(a[i]:3);

readln;

end.

Ta có:

AM là phân giác của \(\widehat{BAC}\) 

Mà trong tam giác cân đường phân giác xuất phát từ đỉnh đối diện với cạnh đáy đồng thời là cũng là đướng trung tuyến ứng với cạnh đáy

⇒M là trung điểm của BC

⇒MC=MB=\(\dfrac{BC}{2}\)=\(\dfrac{15}{2}\)=7,5

Mặc khác trong một tam giác cân đường trung tuyến ứng với cạnh đáy đồng thời là đường trung trực của cạnh đó

Do đó AM là đường trung trực của đoạn thẳng BC

Áp dụng định lý Py-ta-go cho ΔAMC vuông tại M ta có:

AC²=AM²+MC²

13²=AM²+7,5²

169=AM²+56,25

hay AM²=169-56,25=112,75

⇒AM=\(\sqrt{112,75}\)\(\approx\)10,6

Vậy AM\(\approx\)10,6

s không thể khai báo kiểu integer vì tổng 2 số thực vẫn có thể là số thực!

ví dụ:

xét ΔABH và ΔACH có:

\(\widehat{ACB}\)=\(\widehat{ABC}\)(ΔABC cân tại A)

\(\widehat{BAH}\)=\(\widehat{CAH}\)(AH là tia phân giác của\(\widehat{BAC}\))

AB=AC(ΔABC cân tại A)

⇒ΔABH=ΔACH(g-c-g)

xét ΔABM và ΔCEM có:

\(\widehat{AMB}\)=\(\widehat{EMC}\)(2 góc đối đỉnh)

AM=MC(M là trung điểm của AC)

BM=ME(giả thuyết)

⇒ΔABM=ΔCEM(c-g-c)

⇒\(\widehat{BAM}\)=\(\widehat{MCE}\)(2 góc tương ứng)

⇒CE//AB(điều phải chứng minh)

⇒\(\widehat{BAH}\)=\(\widehat{CKH}\)(2 góc sole trong)₍₁₎

Mà \(\widehat{BAH}\)=\(\widehat{CAH}\)(AH là tia phân giác của \(\widehat{BAC}\))₍₂₎

Từ (1) và (2) ⇒\(\widehat{CAH}\)=\(\widehat{CKH}\)

⇒ΔACK cân tại C(điều phải chứng minh)

vì AH là tia phân giác của \(\widehat{BAC}\)

Mà ΔABC cân tại A

⇒AH là đường trung tuyến

Mặc khác M là trung điểm của AC nên BM là đường trung tuyến

Mà G là giao điểm của BM và AH 

⇒G là trọng tâm của ΔABC

xét ΔABH và ΔKCH có:

BH=CH(AH là đường trung tuyến)

\(\widehat{ABH}\)=\(\widehat{KCH}\)(2 góc sole trong)

\(\widehat{AHB}\)=\(\widehat{KHC}\)=\(90^o\)

⇒ΔABH=ΔKCH(g-c-g)

Mà ΔABH=ΔACH

⇒ΔKCH=ΔACH

xét ΔAHC có:

AH+HC>AC(bất đẳng thức tam giác) 

Mà AH=3GH; AC=CK(ΔKCH=ΔACH)

⇒3GH+HC>CK(điều phải chứng minh) 

xét ΔABH và ΔMBH có:

\(\widehat{HMB}\)=\(\widehat{HAB}\)=90^o

BH là cạnh chung

\(\widehat{MBH}\)=\(\widehat{ABH}\)(BH la phân giác của \(\widehat{MBA}\))

⇒ΔABH=ΔMBH(cạnh huyền góc nhọn)

⇒BM=AB(2 cạnh tương ứng)

⇒ΔABM cân tại B

⇒\(\widehat{ABM}\)=\(\widehat{MAB}\)

gọi I là giao điểm của AM và BH

xét ΔMBI và ΔABI có

AB=BM(ΔABH=ΔMBH)

\(\widehat{MBH}\)=\(\widehat{ABH}\)(BH là phân giác của \(\widehat{MBA}\))

\(\widehat{ABM}\)=\(\widehat{MAB}\)(chứng minh trên)

⇒ΔMBI=ΔABI (g-c-g)

⇒\(\widehat{MIB}\)=\(\widehat{AIB}\)(2 góc tương ứng)₍₁₎

Mà \(\widehat{MIB}\)+\(\widehat{AIB}\)=180^o(2 góc kề bù)₍₂₎

Từ (1) và (2) ⇒\(\widehat{MIB}\)=\(\widehat{AIB}\)=\(\dfrac{180^o}{2}\)=90^o

⇒BH⊥AM (Điều phải chứng minh)

xét ΔCMH và ΔNAH có:

\(\widehat{CMH}\)=\(\widehat{HAN}\)=90^o

\(\widehat{CHM}\)=\(\widehat{NHA}\)(2 góc đối đỉnh)

AH=HM(ΔABH=ΔMBH)

⇒ΔCMH=ΔNAH(g-c-g)

⇒HC=HN(2 cạnh tương ứng)

⇒ΔCHN cân tại H

\(\widehat{NCH}\)=\(\widehat{CNH}\)

vì ΔABH=ΔMBH

⇒AH=HM(2 cạnh tương ứng)

⇒ΔAHM cân tại H

⇒\(\widehat{HMA}\)=\(\widehat{HAM}\)

xét ΔNHC và ΔMHA có

\(\widehat{MHA}\)=\(\widehat{CHN}\)(2 góc đối đỉnh)

⇒\(\widehat{HMA}\)+\(\widehat{HAM}\)=\(\widehat{NCH}\)+\(\widehat{CNH}\)

Mà \(\widehat{HMA}\)=\(\widehat{HAM}\)(chứng minh trên)và\(\widehat{NCH}\)=\(\widehat{CNH}\)(chứng minh trên)

⇒\(\widehat{HMA}\)=\(\widehat{NCH}\)

⇒AM // CN (điều phải chứng minh)

câu 1:

a)for i:=17 to 109 do writeln('a');

b)for i:=1 to 10 do x:=x+1;

c)s:=7;

while s<=15 do

begin

n:=n+s;

s:=s+1;

end;

d)var a:array[1..100] of real;

câu 2:

program tihn_tong;

uses crt;

var s,i:integer;

begin

clrscr;

i:=1;s:=1000;

while i<=21 do

begin

s:=s+1000+i;

i:=i+1;

end;

writeln(s);

readln;

end.

câu 3:

cú pháp của lệnh for...to...do:

for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>

cú pháp của lệnh while...do:

while<điều kiện>do<công việc>

câu 4:

cú pháp khai báo biến mang trong chương trình pascal:

khai báo trực tiếp:

var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>

khai báo gián tiếp:

type <biến mang> =array[chỉ số]of <kiểu dữ liệu>