eg4_9.pas

关于课件 好多种结构的算法 等等 大家自己看吧

PROGRAM  eg4_9(INPUT,OUTPUT);
  VAR
    ch:char;
    num1,num2: Integer ;
  BEGIN
    num1:=0;
    num2:=0;
    read(ch);
    write(ch);
    while ch<>'?' do
     begin
       if (ch>='a')and(ch<='z') then num1:=num1+1
       else if (ch>='0') and (ch<='9') then num2:=num2+1;
       read(ch);
       write(ch);
     end;
    writeln;
    writeln('letter=',num1);
    writeln('number=',num2)
  end.