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

Будда427 Будда427    1   01.03.2019 18:50    0

Ответы
Lilit66696 Lilit66696  23.05.2020 18:34

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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика