Описать процедуру, которая вычисляет количество согласных во введенной с клавиатуры фразе

@Nata9 · Регистрация: 30.11.2014

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

Описать процедуру,которая вычисляет количество согласных во введенной с клавиатуры фразы

@CodeR · 01.12.2014, 14:16

Pascal

Var s:string;
    count:integer;
Procedure CountGlas(s:string;Var count:integer);
Const gl=['B','C','D','F','G','H','J','K','L','M','N','P','Q','R','S','T','V','W','X','Y','Z'];
Var i:integer;
Begin
    count:=0;
    For i:=1 to Length(s) do
     if UpCase(s[i]) in gl then inc(count);
End;
Begin
   write('Фраза: ');readln(s);
   CountGlas(s,count);
   writeln('Гласных =',count);
   readln;
End.

Для латинского алфавита

@Nata9 0 / 0 / 0 Регистрация: 30.11.2014 Сообщений: 6
		1
	Описать процедуру, которая вычисляет количество согласных во введенной с клавиатуры фразе 01.12.2014, 13:43. Показов 1171. Ответов 1 Метки нет (Все метки) Описать процедуру,которая вычисляет количество согласных во введенной с клавиатуры фразы 0

	01.12.2014, 14:16

Опции темы

Описать процедуру, которая вычисляет количество согласных во введенной с клавиатуры фразе

Решение