Цикл с постусловием

[Cantdie62]

В последовательности символов, заканчивающейся *, подсчитать количество цифр, прописных и строчных (отдельно) латинских букв, пробелов и специальных символов.

[digitalis]

А если так ? Чтобы прога не вылетала при отсутствии '*' , дополнительно проверяем на длину строки.

program  abc ;
const
  cif : string = '0123456789' ;
  lit : string = 'abcdefghijklmnopqrstuvwxyz' ;
  big : string = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' ;
var
  i,l,cif_sym,up_sym,dwn_sym,blnk_sym,spec_sym : integer ;
  stro, tststr : string ; 
begin
  Readln (stro) ;
  i := 1 ; up_sym := 0 ; dwn_sym := 0 ;
  blnk_sym := 0 ; spec_sym := 0 ; cif_sym :=0 ;
  l := Length (stro) ;
    repeat
       tststr := Copy (stro[i],1,1) ; Inc (i) ;
       if Pos(tststr,big) > 0  then Inc(up_sym) else
          if Pos(tststr,lit) > 0  then Inc(dwn_sym) else
             if Pos(tststr,cif) > 0  then Inc(cif_sym) else
                if tststr=' ' then Inc(blnk_sym) else
                    Inc(spec_sym) ;
    until ( tststr = '*' ) or (i>l);
  Writeln ('Cif=',cif_sym,' Up=',up_sym,' Dwn=',dwn_sym,
             ' Blank=',blnk_sym,' Spec=',spec_sym ) ;
  Readln (stro) ;

end.

[Cantdie62]

Нужно без типа string

[p51x]

оператор стринг? вы о чем?

[Serge_Bliznykov]

так что ли:

var cnt_dig, cnt_ALPHA, cnt_us : integer;
  ch : char;
begin
  cnt_dig :=0; cnt_ALPHA := 0; cnt_us :=0;
  WriteLn('Вводите символы (символ * - окончание ввода): ');
  repeat
     Read(ch);
     if ch in ['0'..'9'] then inc(cnt_dig)
     else  if ch in ['A'..'Z'] then inc(cnt_ALPHA)
       else  if ch in ['a'..'z'] then inc(cnt_us);
  until ch='*';
  WriteLn('Количество');
  WriteLn('цифр ',cnt_dig);
  WriteLn('прописных латинских букв ',cnt_ALPHA);
  WriteLn('строчных латинских букв ',cnt_us);
  ReadLn
end.