Расположить буквы слова Y так, чтобы вначале стояли все гласные, а затем все согласные

@Navyhodonosor · Регистрация: 22.01.2013

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

@Puporev · 22.01.2013, 17:13

Самое простое, для строчных латинских.

Pascal

uses crt;
var a:string;
    n,i,k,j:byte;
    x:char;
begin
clrscr;
writeln('Введите слово строчными латинскими буквами');
readln(a);
n:=length(a);
k:=0;
for i:=1 to n do
if a[i] in ['a','e','i','o','u'] then
 begin
  k:=k+1;
  x:=a[i];
  delete(a,i,1);
  insert(x,a,k);
 end;
writeln('Перестановка гласных вперед:');
write(a);
readln
end.

@Navyhodonosor 0 / 0 / 0 Регистрация: 22.01.2013 Сообщений: 7
		1
	Расположить буквы слова Y так, чтобы вначале стояли все гласные, а затем все согласные 22.01.2013, 16:22. Показов 2280. Ответов 1 Метки нет (Все метки) Составьте программу,располагающую буквы слова Y так,чтобы вначале стояли все гласные,а затем все согласные. Заранее благодарен) 0

Опции темы

Расположить буквы слова Y так, чтобы вначале стояли все гласные, а затем все согласные

Решение