Множества. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр

@JanKlod · Регистрация: 31.05.2012

4. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр. При решении задачи обязательно использовать множественный тип.

Добавлено через 1 минуту
прошу помочь в решении задачек,оч надо!!! Заранее СПАСИБО!!!

@CodeR · 01.06.2012, 09:25

Сообщение от JanKlod

4. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр. При решении задачи обязательно использовать множественный тип.

Pascal

Var i,p,q,k:integer;
    s:string;
Begin
    write('Введите строку: ');readln(s);
    p:=0;q:=0;k:=0;
    For i:=1 to Length(s) do
     Begin
      if s[i] in ['a'..'z','A'..'Z'] then inc(p);
      if s[i] in ['а'..'я','А..Я'] then inc(q);
      if s[i] in ['0'..'9'] then inc(k);
     End;
    if q<>0 then writeln('Русских букв: ',q) else writeln('В строке нету русских букв');
    if p<>0 then writeln('Английских букв: ',p) else writeln('В строке нету английских букв');
    if k<>0 then writeln('Цифр: ',k) else writeln('В строке нету цифр');
End.

@JanKlod 0 / 0 / 0 Регистрация: 31.05.2012 Сообщений: 6
		1
	Множества. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр 01.06.2012, 00:46. Показов 4978. Ответов 1 Метки нет (Все метки) 4. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр. При решении задачи обязательно использовать множественный тип. Добавлено через 1 минуту прошу помочь в решении задачек,оч надо!!! Заранее СПАСИБО!!! 0

Опции темы

Множества. Во введенной строке символов подсчитать количество букв (отдельно русского и английского алфавитов) и цифр

Решение