program tim_uoc;

uses crt;

var i,n,tong:integer;

begin

clrscr;

write('nhap so n:');readln(n);

i:=1;tong:=0;

writeln('cac uoc cua ',n,' la:');

while i<=n do

if n mod i=0 then

begin

write(i:3);

inc(i);

end;

writeln;

i:=1;writeln('cac uoc chan:');

while i<=n do

begin

if n mod i=0 then 

begin

if i mod 2=0 then write(i:3);

tong:=tong+i;

end;

end;

writeln;

write('tong cac uoc chan:',tong);

readln;

end.

phần này hơi dài dòng

chỉ cần dùng lệnh  

để s2 có cùng độ dài với s thì nên gán s2 ban đầu là s2=''

program tim_tong;

uses crt;

var x,i,tong:longint;

begin

clrscr;

tong:=0;i:=1;

while tong<=3500 do

begin

write('x',i,'=');readln(x);

tong:=tong+x;

i:=i+1;

end;

write('tong cac so tren la:',tong);

readln;

end.

program tim_uoc;

uses crt;

var n,i,j:longint;

begin

clrscr;

write('nhap so n:');readln(n);

write('cac uoc cua n la:');

for i:=1 to n do

if n mod i=0 then write(i:3);

writeln;

j:=0;

for i:=1 to n do

if n mod i=0 then j:=j+1;

if j=2 then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

readln;

end.

program in_mang;

uses crt;

var i,n,max:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('cac phan tu chan:');

for i:=1 to n do

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

writeln;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('max cua day la:',max);

readln;

end.

a)

ta có:

M∈Ot và Ot là tia phân giác của \(\widehat{xOy}\) 

⇒MA=MB

xét ΔAOB và ΔBOM có:

\(\widehat{MAO}\)=\(\widehat{MBO}\) =90^o

OM là cạnh chung

MB=MA(chứng minh trên)

⇒ΔAOM=ΔBOM(cạnh huyền cạnh góc vuông)

b)

ta có:

MA=MB(câu a)

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

c)

xét ΔAMI và ΔBMI có

MI là cạnh chung

AM=BM(ΔAOM = ΔBOM )

\(\widehat{AMO}\) =\(\widehat{BMO}\) (ΔAOM = ΔBOM )

⇒ΔAMI = ΔBMI (c-g-c)

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

mà \(\widehat{MIA}\) +\(\widehat{MIB}\) =180^o(2 góc kề bù)

⇒\(\widehat{MIA}\)=\(\widehat{MIB}\) =\(\dfrac{180}{2}\) =90^o

⇒OM⊥AB

Mặc khác IA=IB(2 cạnh tương ứng)

⇒OM là đường trung trực của AB(điều phải chúng minh)

d)

ta có:

Áp dụng định lý Pytago cho ΔAOM vuông tại A

ta có:

OM²=OA²+AM²₍₁₎

Áp dụng định lý Pytago cho ΔAIM vuông tại I

ta có:

AM²=IA²+IM²₍₂₎

Áp dụng định lý Pytago cho ΔAOI vuông tại I

ta có:

OA²=OI²+AI²₍₃₎

Từ (1)và(2) và(3)

⇒OM²=OI²+AI²+IM²+IA²

hay OM²=OI²+IM²+2IA²(điều phải chứng minh)

.cho phương trình ẩn x:ax²+(b-m)x+c=0 .Viết chương trình :

a) giải phương trình với hệ số a=0.

b)biện luận nghiệm của phương trình theo tham số m.

program timtich;

uses  crt;

var i,n:integer;

tich:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tich:=1;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tich:=tich*a[i];

writeln('tich ca phan tu chan cua mang la:',tich);

readln;

end.

program timtong;

uses  crt;

var i,n:integer;

tong:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cac phan tu chan cua mang la:',tong);

tong:=0;

writeln;

for i:=1 to n do

if a[i] mod 2=1 then tong:=tong+a[i];

writeln('tong cac phan tu le cua mang la:',tong);

readln;

end.

D