Bài 1
program thoaiky;
uses crt;
var a,s:string;i:integer;
begin
clrscr;
writeln('nhap xau s');readln(s);
a:='';
for i:=1 to length(s) do
a:=a+upcase (s[i]) ;
writeln(' s la ',a);
readln;
end.
Bài 2 : VD4/SGK trang 72
Bài 3 : bài 2/73
Bài 4 : VD3 / SGK trang 71
Bài 5 : bài 1/SGK trang 73
Bài 6:
program thoaiky;
uses crt;
var s:string;i:byte;
dem: array ['A'..'Z'] of byte;
a:char;
begin
clrscr;
writeln('nhap xau s');readln(s);
for a:='A' to 'Z' do dem[a]:=0;
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(dem[upcase(s[i])]);
for a:='A' to 'Z' do
writeln(a,' la ',dem[a]);
readln;
end.
Bài 7:
program thoaiky;
uses crt;
var s:string;
begin
clrscr;
writeln('nhap xau s');readln(s);
while pos('ch',s)<>0 do delete(s,pos('ch',s),2);
writeln('xau la s ',s);
readln;
end.
Bài 8:
program bai_8;
uses crt;
var a:array[1..10] of integer;
i,l,n,c:integer;
begin
write('nhap vao so phan tu cua mang:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i] mod 2<>0 then l:=l+a[i];write(l);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i] mod 2=0 then c:=c+a[i]; write(c);
readln
end.
Bài 9:
program bai_9;
uses crt;
var a:array[1..10] of integer;
n,i,x:integer;
begin
clrscr;
write('nhap vao so phan tu n '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
write('nhap vao gia tri cua x, x= '); readln(x);
for i:=1 to n do
if a[i]=x then write('vi tri cua x la vi tri thu ',i);
readln
end.
Bài 10:
program bai_10;
uses crt;
var a:array[1..10] of integer;
,n,max,min:integer;
begin
clrscr;
rite('nhap vao so n phan tu '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
if a[i]writeln('so nho nhat la ' ,min);
for i:=1 to n do
if a[i]>max then max:=a[i];
write('so lon nhat la ' ,max);
readln
end.
Bài 11:
program bai_11; uses crt; var a:array[1..10] of integer; i,n,t,j:integer; begin clrscr; write('nhap vao so phan tu n '); readln(n);
for i:=1 to n do begin write('a[',i,']'); readln(a[i]); end;
for j:=1 to n-1 do
for i:=1 to n-1 do
if a[I]>a[i+1] then
begin
t:=a[I]; a[I]:=a[i+1]; a[i+1]:=t;
end;
for i:=1 to n do
begin write(a[i]:5);
end;
readln
end.
Bài 12:
program bai_12;
uses crt; var a:array[1..10] of integer; i,n,s,k:integer;
begin clrscr;
write('nhap voa so ptu n '); readln(n);
for i:=1 to n do
begin write('a[',i,']'); readln(a[i]);end;
write('nhap vao so k'); readln(k);
for i:=1 to n do if a[i] mod k = 0 then s:=s+a[i];write(s);
readln end.
Bài 13:
program bai_13;
uses crt;
var a:array[1..10] of integer;
n,i,d,s: integer;
begin
clrscr;
write('nhap n so phan tu cua mang '); readln(n);
for i:=1 to n do
begin
write('a[',i,']'); readln(a[i]);
end;
for i:=1 to n do
if a[i]>0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
write('tong cac so duong la ',s);
writeln;
for i:=1 to n do
if a[i]<0 then write(a[i]:5);
writeln;
for i:=1 to n do
if a[i]<0 then d:=d+a[i];
write('tong cac so am la ',d);
readln
end.
Bài 15:
Program bai_15
uses crt;
var i,x,n,h,o:integer; l:real;
function mu(x,n:integer):integer;
var s,i:integer;
begin
s:=1;
for i:= 1 to n do begin
s:=(x+n)*s; end;
mu:=s;
end;
function giaithua(n:integer):integer;
var i,k:integer;
begin k:=1;
for i:= 1 to n do
k:=k*i;
giaithua:=k;
end;
begin clrscr; readln(x,n);
l:=0;
for i:= 1 to n do begin
h:= mu(x,i);
o:=giaithua(i);
l:=l+h/o;end;
write(l:2:0);
end.
Bài 16:
type mang=array[1..100] of longint;
var a,b,c:mang; n:longint;
procedure nhapmang(var a:mang; n:longint);
var i: longint;
begin
for i:=1 to n do read(a[i]);
end;
procedure taomang(a,b:mang);
var i: longint; c:mang;
begin
for i:=1 to n do
begin
c[i]:= a[i] + b[i];
writeln(c[i] : 4);
end;
end;
BEGIN
read(n);
nhapmang(a,n);
nhapmang(b,n);
taomang(a,b);
readln
END.
Bài 17:
var S,a,c,b: longint;
function giaithua(n:longint):longint;
var i,a: longint;
begin
a:=1;
for i:=1 to n do a:=a*i;
giaithua:=a;
end;
BEGIN
Write('Nhap a, b, c: ');
read(a,b,c);
S:=giaithua(a) + giaithua(b) + giaithua(c);
write(S);
readln
END.
Bài 18:
uses crt;
var a,b,UCLN:integer;
begin
clrscr;
write(‘nhap so a: ');readln(a);
write(' nhap so b: ');readln(b);
while a<>b do
begin
if (ab:=b-a
else
a:=a-b;
end;
write('UCLN cua a va b la: ',a);
readln;
end.