Во введенном тексте удалить все гласные буквы латинского алфавита

@Чувак · Регистрация: 04.01.2012

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

1. Составить программу, которая во введенном тексте удаляет все гласные буквы латинского алфавита, удваивает цифры и подсчитывает количество строчных букв латинского алфавита.
На печать выдать исходный текст, количество строчных букв латинского алфавита и преобразованный текст.
2. Дана строка длиной не более 255 символов. Группы символов, разделённых между собой одним пробелом и не содержащих пробелов внутри себя, назовём словами. Слова в строке отделены одним пробелом, в конце ставится точка Напечатать предложение, переворачивая в нём все слова с нечётными номерами.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@swillrocker · 06.01.2012, 19:26

Только не работает почему то

Основная идея реализована. Будет время исправлю ))
2.

Pascal

var s,s1,sr,str:string;
    i,j,k:integer;
begin
  write('s=');
  readln(s);
  j:=0;i:=0;str:='';
  s1:='';
  while s[i]<>'.' do
   begin
     inc(i);
     if s[i]<>' ' then s1:=s1+s[i]
      else
       begin
         sr:='';
         inc(j);
         if j mod 2=1 then
          for k:=length(s1) downto 1 do sr:=sr+s1[i];
         if sr<>'' then str:=str+sr
         else str:=str+s1;
         str:=str+' ';
         s1:='';
       end;
    end;
 writeln(str);
 readln;
end.

	06.01.2012, 19:26

Во введенном тексте удалить все гласные буквы латинского алфавита

Решение