Строки. Вводится строка произвольного текста. Удалить все гласные буквы

@biofrank · Регистрация: 28.05.2012

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

Вводится строка произвольного текста. Удалить все гласные буквы.

Kodzaev · 28.05.2012, 22:46

Pascal

Uses crt;
Const
gl=['E','Y','U','I','O','A','e','y','u','i','o','a'];
Var
s: String;
i: Integer;
BEGIN
Clrscr;
Writeln('Введите строку: '); Readln(s);
For i:=Length(s) downto 1 do
If s[i] in gl Then
Delete(s,i,1);
Writeln('Полученная строка: ');
Writeln(s);
Readln
END.

@biofrank 1 / 1 / 0 Регистрация: 28.05.2012 Сообщений: 12
		1
	Строки. Вводится строка произвольного текста. Удалить все гласные буквы 28.05.2012, 22:30. Показов 2750. Ответов 1 Метки нет (Все метки) Вводится строка произвольного текста. Удалить все гласные буквы. 0

Опции темы

Строки. Вводится строка произвольного текста. Удалить все гласные буквы

Решение