Добавлено (2010-06-01, 0:31 Am)
---------------------------------------------
const
ge = ['A', 'E', 'I', 'O', 'U', 'Y', 'a', 'e', 'i', 'o', 'u', 'y'];

var
s :string;
i, j :integer;

begin
readln(s);
for I := 1 to length(s) do
if s[i] in ge then
begin
for j := i to length(s) do
s[j] := s[j + 1];
delete(s, length(s), 1);
end;
writeln(s);
end.

Добавлено (2010-06-01, 0:36 Am)
---------------------------------------------
1-я хз, потому что вообще не врубаюсь в условие...

Добавлено (2010-06-01, 1:21 Am)
---------------------------------------------
мне кажется, внутренний цикл не нужен, просто переписываешь букву, если она негласная

Добавлено (2010-06-01, 1:30 Am)
---------------------------------------------
http://habrahabr.ru/blogs/i_am_clever/27055/ - цена одного байта!

Добавлено (2010-06-01, 1:31 Am)
---------------------------------------------
Я бы школьников заставил на ассемблере кодить)

Добавлено (2010-06-01, 1:31 Am)
---------------------------------------------
ТОгда не будет так, как с чистым небом!

var
a,b,c :string;
begin

a:=copy(S,3,4)+s[9]+ s[11];
b:=copy(S,4,3)+s[3];
c:=s[4]+s[6]+s[5]+s[1]+ copy(S,3,2);
writeln(a,' ',b,' ',c);
end.

Добавлено (2010-06-01, 1:38 Am)
---------------------------------------------
Я вообще в жизни таких задачек не решал, ибо сразу переходил к более сложным... Поэтому я даже не врубился)

это первая задача, которую решают по теме "Строки" =))