program tong_for_to_do;

uses crt;

var i,n:integer;

t:real;

begin

clrscr;

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

t:=0;

for i:=1 to n do

if i mod 3=0 then t:=t+1/i;

writeln('tong la: ',t);

readln;

end.

program tinh_tong;

uses crt;

var i,n,t:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('tong cua day la: ',t);

t:=0;

for i:=1 to n do

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

writeln('tong cac so chan la: ',t);

readln;

end.

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

program max_min;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

program tinh;

uses crt;

var i,n,x:integer;

t:longint;

function luythua(n,x:integer):longint;

var m:integer;

begin

  m:=1;

  for i:=1 to n do

  m:=m*x;

  luythua:=m;

end;

function giaithua(n:integer):longint;

begin

  if n=0 then giaithua:=1

  else giaithua:=n*giaithua(n-1);

end;

begin

  clrscr;

  write('nhap n,x:');readln(n,x);

  t:=0;

  for i:=1 to n do

  t:=t+giaithua(luythua(i,x));

  writeln(t);

  readln;

end.

câu c bạn viết cách ra nhé!

program so_nguyen_to;

uses crt;

var i,n:integer;

function kt(n:integer):boolean;

var i,j:integer;

begin

j:=0;

for i:=1 to n do

if n mod i=0 then inc(j);

if j=2 then kt:=true

else kt:=false;

end;

BEGIN

clrscr;

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

if kt(n) then writeln(n,' la so nguyen to')

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

writeln('cac so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if kt(i) then write(i:5);

writeln;

writeln('cac cap so le lien tiep la so nguyen to be hon hoac bang ',n,' la:');

for i:=1 to n do

if (i mod 2=1) and (kt(i)) and (kt(i+2)) then write(i,',',i+2);

readln;

end.

12

a)xét ΔABD và ΔFED có:

\(\widehat{BAD}=\widehat{BFD}=90^o\)

BD là cạnh chung

\(\widehat{ABD}=\widehat{FBD}\)(BD là phân giác của \(\widehat{ABF}\))

⇒ΔABD=ΔFED(c.huyền.g.nhọn)

b)gọi I là giao điểm của AF và BD

xét ΔABI và ΔFBI có:

BF=AB(ΔABD=ΔFED)

BI là cạnh chung

\(\widehat{ABI}=\widehat{FBI}\)(BD là phân giác của \(\widehat{ABF}\))

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

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

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

từ (1) và (2) ⇒\(\widehat{BIA}=\widehat{BIF}=\dfrac{180^o}{2}=90^o\)

vì ΔABI=ΔFBI⇒IA=IF

Do đó:BD là trung trực của AF(đ.p.cm)

c)xét ΔDCF có

DC là cạnh huyền

⇒DC>DF

Mà DF=AD

⇒DC>AD

d)Ta có:

AB=DF(ΔABD=ΔFED)

Mà AE=FC

⇒AB+AE=DF+FC

hay BE=DC

xét ΔBDC và ΔBDE có:

BE=DC(ch/m trên)

\(\widehat{EBD}=\widehat{CBD}\)(BD là phân giác của \(\widehat{EBC}\))

BD là cạnh chung

⇒ ΔBDC=ΔBDE(c-g-c)

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

Mà \(\widehat{BDA}=\widehat{BDF}\)(ΔABD=ΔFED)

⇒\(\widehat{BDE}-\widehat{BDA}=\widehat{BDC}-\widehat{BDF}\)

hay \(\widehat{ADE}=\widehat{FDC}\)(đ.p.cm)

ta có:\(\widehat{ADE}+\widehat{CDE}=180^o\)(2 góc kề bù)

Mà \(\widehat{ADE}=\widehat{FDC}\) ⇒\(\widehat{FDC}+\widehat{CDE}=180^o\) 

hay E,D,F thẳng hàng(đ.p.cm)