Найти количество гласных и согласных букв в строке, а также символов (, . : ? !

@Santi111 · Регистрация: 06.03.2012

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

Задана строка S, содержащая русскоязычный текст, записанный малыми буквами. Найти количество гласных и согласных букв в S, а также символов (, . : ? ! - ).

@КонецСвета · 20.03.2012, 22:29

Pascal

uses crt;
const g=['ё','у','е','ы','а','о','э','я','и','ю'];
      a=['а'..'я'];
      p=[',','.',':','?','!','-','(',')'];
var str: string;
    s: set of char;
    i,kg,ks,kp: byte;
begin
s:=a-g;
write('str='); readln(str);
for i:=1 to length(str) do
    if str[i] in g then inc(kg) else
       if str[i] in s then inc(ks) else
          if str[i] in p then inc(kp);
writeln('Количество гласных ',kg);
writeln('Количество согласных ',ks);
writeln('Количество символов (, . : ? ! - ) ',kp);
readln;
end.

@Santi111 · 24.03.2012, 00:32 **[ТС]**

А с этим не поможете?
Является ли текст из латинских букв правильной записью римскими цифрами целого числа

@Santi111 6 / 5 / 4 Регистрация: 06.03.2012 Сообщений: 61
		1
	Найти количество гласных и согласных букв в строке, а также символов (, . : ? ! 20.03.2012, 21:04. Показов 3673. Ответов 2 Метки нет (Все метки) Задана строка S, содержащая русскоязычный текст, записанный малыми буквами. Найти количество гласных и согласных букв в S, а также символов (, . : ? ! - ). 0

@Santi111 6 / 5 / 4 Регистрация: 06.03.2012 Сообщений: 61
	24.03.2012, 00:32 [ТС]	3
	А с этим не поможете? Является ли текст из латинских букв правильной записью римскими цифрами целого числа 0

Найти количество гласных и согласных букв в строке, а также символов (, . : ? !

Решение