Составьте алгоритм (программу), вычеркивающий из данного текста все гласные буквы

@driveme · Регистрация: 22.05.2014

Составьте алгоритм (программу), вычеркивающий из данного текста все гласные буквы.

@Power torr · 28.05.2014, 21:04

Pascal

Program gfhfhfg;
const
sg = ['а','е','и','я','о','ё','ю','ы','э','у'];
var
s: string;
i: integer;
begin
Write ('Введите предложение: ');
Readln(s);
for i := Length(s) downto 1 do
if s[i] in sg then
Delete(s, i, 1);
Writeln ('Резульат: ',s) ;
ReadLn(s);
end.

@driveme 0 / 0 / 0 Регистрация: 22.05.2014 Сообщений: 25
		1
	Составьте алгоритм (программу), вычеркивающий из данного текста все гласные буквы 26.05.2014, 12:23. Показов 2094. Ответов 1 Метки нет (Все метки) Составьте алгоритм (программу), вычеркивающий из данного текста все гласные буквы. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составьте алгоритм (программу), вычеркивающий из данного текста все гласные буквы

Решение