строки и множества

[лерка:)]

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

[hiho]

Напиши в аську, договоримся =)

[denisbrain]

Сообщение от лерка:)

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

300 руб максимум.

[Mad_Cat]

{Составить программу, которая во введенном тексте удаляет все гласные буквы
латинского алфавита,удваивает цифры и подсчитывает количество
строчных букв латинского алфавита.}
uses crt;
const D = ['0'..'9'];
      G = 'aoueiAOEUI';
      L = ['a'..'z'];
var s:string;
Res:string;
i,k:integer;
begin
write('Введи строку:');
Readln(s);
Res:='';k:=0;
for i:=1 to length(s) do
begin
if s[i] in L then k:=k+1;
if s[i] in D then Res:=Res+s[i]+s[i]
else if pos(s[i],G)=0 then Res:=Res+s[i]
end;
s:=Res;
Writeln('новая строка:',s);
Writeln('количество строчных букв латинского алфавита=',k);
Readln;
end.

результат Паскаль ABC

Введи строку:Mother Father Sister 22 3456 Brother
новая строка:Mthr Fthr Sstr 2222 33445566 Brthr
количество строчных букв латинского алфавита=21

[Mad_Cat]

{Дана строка длиной не более 255 символов.
 Группы символов, разделённых между собой одним пробелом и не содержащих пробелов
  внутри себя, назовём словами. Слова в строке отделены одним пробелом,
  в конце ставится точка.Напечатать предложение, переворачивая в нём все слова с нечётными номерами. }
uses crt;
function Reverse(Str:string):string;
var i,n: integer;
c:char;
begin
n:=length(str);
for i:=1 to n div 2 do
begin
c:=str[i];
str[i]:=str[n-i+1];
str[n-i+1]:=c ;
end;
Reverse:=str;
end;
var s:string;
Res:string;
i,k:integer;
begin
write('Введи строку:');
Readln(s);
Res:='';k:=0;
delete(s,pos('.',s),1);
While pos('  ',s)<>0 do delete(s,pos('  ',s),1);
s:=s+' ';
while s<>'' do
begin
inc(K); if odd(k) then Res:=res+' '+reverse(Copy(s,1,pos(' ',s)-1))
else Res:=Res+' '+Copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s));
end;
s:=Res+'.';
delete(s,1,1);
Writeln('новая строка:',s);
end.

результат

Введи строку:мама мыла раму с мылом.
новая строка:амам мыла умар с молым.