Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.

22.01.2013, 12:34. **Показов** 1623. **Ответов** 1

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

plese решить задачу по практике: вот условия! Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.

Kodzaev · 22.01.2013, 12:49

Pascal

Const
  m=['a'..'z'];
  gl=['a','e','o','i','u','y'];
  sg=m-gl;
Var
  s: String;
  i,k1,k2: Integer;
BEGIN
Writeln('Введите строку:');
Readln(s);
For i:=1 to Length(s) do
begin
  If s[i] in gl Then Inc(k1);
  If s[i] in sg Then Inc(k2);
end;
If k1>k2 Then Writeln('гласных больше');
If k2>k1 Then Writeln('согласных больше');
If k1=k2 Then Writeln('Поровну');
END.

koreec95
		1
	Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте. 22.01.2013, 12:34. Показов 1623. Ответов 1 Метки нет (Все метки) plese решить задачу по практике: вот условия! Дан текст из строчных латинских букв. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.

	22.01.2013, 12:49

Строки. Определить каких букв – гласных (a,e,i,o,u) или согласных больше в этом тексте.

Решение