Напишите программу, подсчитывающую количество букв во введенной строке (слове).

Var
  s: string;
  letters: set of А..я;
  i, n: integer;

begin
  writeln(Введите текст);
  readln(s);
  n := 0;
  letters := [А..я];
  for i := 1 to length(s) do
    if s[i] in letters then n := n + 1;
  writeln(Количество букв в строке: , n);
end.

Тестовое решение:

Введите текст
Это текст содержащий буквы, цифры (1,2,3,4), латиницу werwer sxFFSFw и зн"ачки [email protected]#$%#^
Количество букв в строке: 43

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.