uses crt;

const fo='xau.out';

var f1:text;

s1,s2:string;

d1,d2,dem:integer;

begin

clrscr;

assign(f1,fo); rewrite(f1);

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

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

d1:=length(s1);

d2:=length(s2);

writeln('Do dai xau ',s1,' la: ',d1);

writeln('Do dai xau ',s2,' la: ',d2);

dem:=0;

while pos(s2,s1)>0 do 

  begin

inc(dem);

delete(s1,pos(s2,s1),length(s2));

end;

writeln(f1,s1);

writeln(f1,s2);

writeln(f1,'So lan xuat hien cua xau s2 trong xau s1 la: ',dem);

close(f1);

readln;

end.

Bài 2: 

uses crt;

var s:string[30];

i,d:integer;

begin

clrscr;

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

d:=length(s);

writeln('Do dai la: ',d);

writeln('Xau ban dau la: ',s);

for i:=1 to d do 

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

writeln('Xau sau khi doi la: ',s);

readln;

end.

uses crt;

var s:string;

i,d:integer;

begin

clrscr;

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

d:=length(s);

for i:=1 to d do 

  if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);

writeln('Xau sau khi xoa het ki tu chu la: ',s);

readln;

end.

uses crt;

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

i,min:integer;

begin

clrscr;

for i:=1 to 30 do 

begin

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

end;

min:=a[1];

for i:=1 to 30 do 

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

writeln(min);

readln;

end.

Mọi người giúp e với ạ

uses crt;

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

i,n,tb,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

tb:=0;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then

begin

tb:=tb+a[i];

inc(dem);

end;

writeln('Trung binh cong cac so chia het cho 3 la: ',tb/dem:4:2);

readln;

end.

Vậy khi chạy đoạn chương trình, nó kết thúc tại S = 9 và i = 5.

cảm ơn ạ!

const fi='data.txt';

fo='ketqua.txt';

var f1,f2:text;

a,b,h:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,h);

writeln(f2,0.5*h*(a+b):4:2);

close(f1);

close(f2);

end.

uses crt;

var st:string;

i,d:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

  if not(st[i] in ['0'..'9']) then write(st[i]);

readln;

end.

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap N: '); readln(n);

t:=0;

for i:=1 to n do 

begin

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

t:=t+a[i];

end;

write('Tong cac phan tu gia tri trong mang la: ',t);

readln

end.

thầy có code của dev c++ không ạ.