1. 

   elena_sokolovskaya New Member

   С клавиатуры вводят строку. Составьте программу которая подсчитывает количество букв в строке (исключая пробелы ицифры)

    

   elena_sokolovskaya, 9 янв 2010

   #1
2. 

   Truba_zovet New Member

   var
    s:string;
    i:longint;
   begin
    readln(s);
    for i:=length(s) downto 1 do
    begin
     if s=' ' then delete(S,i,1);
     if (s>='1')and(s<='9') then delete(s,i,1);
    end;
    writeln(length(s));
   end.
   
   
   

    

   Truba_zovet, 9 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня