Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.

@марина царева · Регистрация: 11.01.2012

Author24 — интернет-сервис помощи студентам

Дана строка. Подсчитать общее количество содержащихся в ней
строчных латинских и русских букв.срочно и с объяснениями

@Mawrat · 11.01.2012, 16:33

Pascal

program Project1;
 
const
  //Множество строчных букв.
  Da = [
    //Русские буквы.
    'а'..'п', 'р'..'я', 'ё',
    //Буквы латиницы.
    'a'..'z'
  ];
var
  S : String;
  i, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
    Cnt := 0;
    for i := 1 to Length(S) do
      if S[i] in Da then Inc(Cnt)
    ;
    Writeln('Всего строчных латинских и русских букв: ', Cnt);
    Writeln(S);
 
    Writeln('Повторить - Enter, выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

@марина царева 0 / 0 / 0 Регистрация: 11.01.2012 Сообщений: 16
		1
	Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв. 11.01.2012, 14:59. Показов 2485. Ответов 1 Метки нет (Все метки) Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.срочно и с объяснениями 0

	11.01.2012, 16:33

Дана строка. Подсчитать общее количество содержащихся в ней строчных латинских и русских букв.

Решение