Pascal编程问题（送分题）

已经发到你的邮箱了

1.var a,b，i,:integer； (a为字母个数，b为数字个数）
c:char；
begin
a：=0；
b：=0；
while c <> ‘？’ do
begin
read(c)；
i:=ord(c)；
if (i>=48) and (i<=57）then b：=b+1；
if （i>=65) and (i<=90) then a:=a+1；
if (i>=97) and (i<=122) then a:=a+1；
end；
writeln（a，b）；
readln；
end；

var
a,b:integer； (a=字母数，b=数字数）
c:char；
begin
a：=0；
b：=0；
while c <> ‘？’ do
begin
read(c)；
if (c>='0') and (i<='9'）
then
b：=b+1；
if （i>='A') and (i<='Z')
then
a:=a+1；
if (i>='a') and (i<='z')
then
a:=a+1；
end；
writeln(a，b)；
readln；
end.