Câu 1
uses crt;
var a:array[1..250]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;
{-----------------------------xu-ly------------------------------}
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('so phan tu chan trong day la: ',dem);
writeln('tong cac phan tu chan trong day la: ',t);
readln;
end.
Câu 2
uses crt; {thu vien dung cho viec xoa man hinh}
var Dem:array[‘A’..‘Z’] of integer;
____S: String;
____ch: char;
____i: integer;
begin
____clrscr; {lenh xoa man hinh}
____write(‘Nhap xau S: ’);
____readln(S);
_for ch:= ‘A’ to ‘Z’ do
_______Dem[ch]:= 0;
_ for i:=1 to length(S) do
begin
if S[i] in ([‘a’..‘z’]) then {co the thay bang if (S[i] >= ‘a’) and (S[i] <= ‘z’) then}
begin
_________ch:=upcase(S[i]);
_________Dem[ch]:= Dem[ch]+1;
end;
end;
{for ch:= ‘A’ to ‘Z’ do
write(‘So lan xuat hien cua ’,ch, ‘ trong xau la ’, Dem[ch]);}
____writeln(‘So lan xuat hien cua cac chu cai trong xau la: ‘);
for ch:= ‘A’ to ‘Z’ do
_______write(ch:3);
____writeln;
for ch:= ‘A’ to ‘Z’ do
_______write(Dem[ch]:3);
____readln
end.
Bài 3 – Sgk – Tr73: Nhập vào từ bàn phím một xâu. Thay thế tất cả các cụm kí tự “anh” bằng cụm kí tự “em”.
Chương trình:
uses crt;
var St: String;
___Vt: byte;
begin
____clrscr;
____write(‘Nhap xau St: ’);
____readln(St);
_while pos(‘anh’,St)<>0 d0{ con tim thay tu ‘anh’ trong xau St}
begin
________Vt:=pos(‘anh’,St);
________Delete(St,vt,3);
________Insert(‘em’,St,vt);
end;
____write(‘Xau thay the la: ‘, St);
____readln
end.
