Bai tap pascal

1/ BT: TINH SO CHAN TRONG MANG A

program BT6;
var a:array [1..100] of integer;
n,i,sochan: integer;
begin
sochan:=0;
write(`Nhap so phan tu cua mang`);readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]=`);readln(a[i]);
if a[i] mod 2 = 0 then sochan := sochan + 1;
end;
write(`So luong so chan la: `,sochan);
readln
end.




2/ BT: TINH SO LE TRONG MANG A

program BT6;
var a:array [1..100] of integer;
n,i,sole: integer;
begin
sole:=0;
write(`Nhap so phan tu cua mang: `);readln(n);
for i:=1 to n do
begin
write(`a[`,i,`]=`);readln(a[i]);
if a[i] mod 2 <> 0 then sole := sole + 1;
end;
write(`So luong so le la: `,sole);
readln
end.



3/ BT: DEM CHU SO TRONG XAU S

program demchuso;
var s:string[100];
i,dem:byte;
begin
writeln(`Nhap vao mot xau: `);readln(s);
dem:=0;
for i:=1 to length(s) do
if (`0`<=s[i]) and (s[i]<=`9`)then dem:=dem+1;
writeln(`So chu so trong xau la: `,dem);
readln
end.


4/ BT: DEM KI TU TRONG XAU S

program demkitu;
var s: string;
i,dem: byte;
ch: char;
begin
dem:=0;
write(`Nhap mot xau: `);readln(s);
for i:=1 to length(s) do
for ch:=`a`to `z`do
if s[i]=ch then dem:=dem+1;
write(`So chu cai trong xau la: `,dem);
readln
end.




5/ BT: TIM SO HANG THU N CUA DAY FIBONACI

Program Fibonaci;
var a:array[1..100] of word;
i, n:byte;
begin
write(`Nhap n: `);readln(n);
a[1]:=1; a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
write(`So hang thu can tim la: `, a[i]);
readln
end.