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

@StinFox · Регистрация: 02.10.2012

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

@Puporev · 27.11.2012, 16:20

Pascal

uses crt;
const gl=['A','E','I','O','U'];
var y:string;
    x:char;
    n,i,k,j:integer;
begin
clrscr;
writeln('Введите слово из латинских букв:');
readln(y);
n:=length(y);
k:=0;
for i:=1 to n do
if Upcase(y[i]) in gl then
  begin
    k:=k+1;
    x:=y[i];
    for j:=i downto k+1 do
    y[j]:=y[j-1];
    y[k]:=x;
  end;
writeln('Перестановка:');
write(y);
readln
end.

@StinFox 0 / 0 / 0 Регистрация: 02.10.2012 Сообщений: 8
		1
	Расположить буквы слова Y так,чтобы вначале стояли все гласные,а затем согласные. 27.11.2012, 16:06. Показов 1213. Ответов 1 Метки нет (Все метки) Составьте программу,располагающую буквы слова Y так,чтобы вначале стояли все гласные,а затем согласные. заранее благодарен. 0

Опции темы

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

Решение