Bài 3:

program so_chan_khong_an;

uses crt;

var m,n,i,d:integer;

begin

       clrscr;

       write('Nhap M: ');  readln(m);

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

       d:=0;

       for i:=m to n do

              if (i>=0) and (i mod 2=0) then d:=d+1;

       write('Cac so chan khong am tu ',m,' den ',n,' la: ',d);

       readln;

end.

Bài 4:

proram dem_hoa;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

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

       d:=0;

       for i:=1 to length(s) do

              if s[i] in ['A'..'Z'] then d:=d+1;

       write('Co ',d,' ki tu hoa');

       readln;

end.

Bài 3:

var m, n, i: integer;

      S: longint;

 

begin

       write('Nhap m va n: ');  readln(m, n);

       S:=0;

       for i:=m to n do

              if (i>=0) and (i mod 2=0)

                    then S:=s+i;

 

       write('Tong: ', s);

       readln

end.

 

Bài 4:

var s: string;

      i, d: byte;

begin

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

       d:=0;

       for i:=1 to length(s) do

              if s[i] in ['A'..'Z'] then d:=d+1;

       write('Co ', d , ' ki tu hoa');

       readln

end.