Переставить в нем все буквы "а" в начало, а буквы "я" – в конец.

@DrDre9991 · Регистрация: 22.06.2010

Дан некоторый текст. Переставить в нем все буквы "а" в начало, а буквы "я" – в конец.
Пример: "саяны" ——» "асныя".

@Puporev · 22.06.2010, 13:07

Pascal

uses crt;
var s:string;
    i:byte;
begin
clrscr;
writeln('Ввeдите текст, содержащий буквы а,я');
readln(s);
for i:=length(s) downto 1 do
 begin
  if s[i]='а' then
   begin
    delete(s,i,1);
    insert('а',s,1);
   end;
  if s[i]='я' then
   begin
    delete(s,i,1);
    s:=s+'я';
   end;
 end;
write(s);
readln
end.

@DrDre9991 0 / 0 / 0 Регистрация: 22.06.2010 Сообщений: 16
		1
	Переставить в нем все буквы "а" в начало, а буквы "я" – в конец. 22.06.2010, 06:51. Просмотров 1077. Ответов 1 Метки нет (Все метки) Дан некоторый текст. Переставить в нем все буквы "а" в начало, а буквы "я" – в конец. Пример: "саяны" ——» "асныя". 0

Опции темы

Переставить в нем все буквы "а" в начало, а буквы "я" – в конец.

Решение