Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец

@tima123 · Регистрация: 13.04.2009

Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец.

@Serj17 · 16.04.2009, 12:34

У мня похожая задачка...
Дан некоторый текст, поменять местами слова в которих частее встречаются буквы А і Я.

@yanyk1n · 16.04.2009, 12:43

Pascal

program zz;
uses crt;
var st:string;
     i,a,ya:integer;
begin
 clrscr;
 write('-> ');
 readln(st);
 a:=1;
 ya:=length(st);
 
 for i:=1 to length(st) do
 if st[i]='а' then
 begin
  st[i]:=st[a];
  st[a]:='а';
  a:=a+1;
 end
 else if st[i]='я' then
 begin
  st[i]:=st[a];
  st[a]:='я';
  ya:=ya-1;
 end;
 
 writeln(st);
 readln;
end.

@GalaX · 16.04.2009, 12:48

Сообщение от tima123

Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец.

Pascal

program pr;
var i : integer;
    a, ya, s, s2 : string;
begin
s := 'всякие разные символы';
 
for i:=1 to length(s) do begin
  if s[i]='а' then
    a := a + 'а'
  else if s[i]='я' then
    ya := ya + 'я'
  else
    s2 := s2 + s[i];
end;
s2 := a + s2 + ya;
 
writeln(s2);
readln;
end.

Добавлено через 1 минуту 38 секунд
зы: k1ry4, там вроде надо было просто переставить "а" и "я" в начало/конец строки, а не менять местами
зыы: или может я неправильно понял

@yanyk1n · 16.04.2009, 12:53

Оп-па, не заметил! Тогда смотрите решение у GalaX

@tima123 0 / 0 / 0 Регистрация: 13.04.2009 Сообщений: 19
		1
	Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец 15.04.2009, 23:08. Просмотров 1455. Ответов 4 Метки нет (Все метки) Дан некоторый текст. Переставить в нем все буквы <<a>> в начало, а буквы <<я>> в конец. 0

@Serj17 0 / 0 / 0 Регистрация: 16.04.2009 Сообщений: 4
	16.04.2009, 12:34	2
	У мня похожая задачка... Дан некоторый текст, поменять местами слова в которих частее встречаются буквы А і Я. 0

@yanyk1n 4337 / 1469 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	16.04.2009, 12:53	5
	Оп-па, не заметил! Тогда смотрите решение у GalaX 0

Опции темы