86

С клавиатуры вводят строку. Составьте программу которая подсчитывает количество…

05 апреля 2023

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

категория: информатика



33

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.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...