Bài 1: 

function min(a,b:longint):longint;

begin

min:=a;

if min>b then min:=b;

end;

Bài 2: 

function canhhuyen(a,b:real):real;

var c:real;

begin

c:=sqrt(sqr(a)+sqr(b));

canhhuyen:=c;

end;

uses crt;

var m,n,t,i:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

t:=0;

for i:=m to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan tu ',m,' den ',n,' la: ',t);

readln;

end.

uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('Trung binh cong cac so le la: ',t/dem:4:2);

readln;

end.

uses crt;

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

i,n,dem,k:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

write('Nhap k='); readln(k);

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.

 vậy???

uses crt;

var i,t,kt,j:integer;

begin

clrscr;

t:=0;

for i:=999 downto 100 do 

  begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln('Tong cac so nguyen to trong day la: ',t);

readln;

end.

1.

Program HOC24;

var s: string;

i: byte;

begin

write('Nhap xau : '); readln(s);

for i:=length(s) downto 1 do write(upcase(s[i]));

readln

end.

1:

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

write('Dang dao nguoc cua xau la: ');

for i:=d downto 1 do 

  write(st[i]);

writeln;

for i:=1 to d do 

  st[i]:=upcase(st[i]);

 write('Xau duoi dang in hoa la: ',st);

readln;

end.

2:

uses crt;

var st:string;   

i,d:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

i:=pos('anh',st);

while i<>0 do 

begin     

delete(st,i,3);     

insert('em',st,i);     

i:=pos('anh',st); 

end;

while st[1]=#32 do 

begin     

delete(st,1,1);     

d:=length(st); 

end;

while st[d]=#32 do 

begin     

delete(st,d,1);     

d:=length(st); 

end;

for i:=1 to d do 

while (st[i]=#32) and (st[i+1]=#32) do     

begin       

delete(st,i,1);       

d:=length(st);     

end;

writeln('Xau sau khi xu ly la: ',st);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

n:=20;

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu am la: ',t);

readln;

end.

uses crt;

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

n,i,t:integer;

begin

clrscr;

randomize;

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

for i:=1 to n do 

  a[i]:=random(999)+1;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac phan tu chia het cho 3 la: ',t);

readln;

end.

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do 

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

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat la: ',dem);

readln;

end.

uses crt;

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

i,n,t,max:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

max:=a[1];

for i:=1 to n do 

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

t:=0;

for i:=1 to n do 

  if max=a[i] then t:=t+a[i];

writeln('Tong cac phan tu co gia tri lon nhat la: ',t);

readln;

end.

Thầy em cho em viết đề như v em cũng k biết nửa 🥺