Дано слово на английском языке

@Chemoda · Регистрация: 04.11.2013

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

Дано слово на английском языке.После каждого гласного символа вставтьте символ <*>.Удалите последний гласный символ в слове.Если в слове нет гласных,то выведите соответствующие сообщение.

@ildwine · 17.11.2013, 19:51

Pascal

const
  gl = ['A', 'E', 'O', 'I', 'U', 'Y'];
var
  s : string;
  i, k : byte;
begin
  k := 0;
  {вводим слово}
  write('слово: ');
  readln(s);
  {вставляем символ * после каждого гласного}
  for i := length(s) downto 1 do
    if upcase(s[i]) in gl then
    begin
      insert('*', s, i+1);
      inc(k)
    end;
  if k = 0 then writeln('гласных нет') else
  begin
    write('слово после добавления звездочек: ');
    writeln(s);
    for i := length(s) downto 1 do
      if upcase(s[i]) in gl then
      begin
        delete(s, i, 1);
        break
      end;
    write('слово после удаления последней гласной: ');
    writeln(s)
  end
end.

@Chemoda 0 / 0 / 0 Регистрация: 04.11.2013 Сообщений: 9
		1
	Дано слово на английском языке 17.11.2013, 17:24. Показов 1269. Ответов 1 Метки нет (Все метки) Дано слово на английском языке.После каждого гласного символа вставтьте символ <*>.Удалите последний гласный символ в слове.Если в слове нет гласных,то выведите соответствующие сообщение. 0

	17.11.2013, 19:51

Дано слово на английском языке

Решение