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.
