Question

Написать програму на паскале
Из букв слова s получить новое слово s1, переставив все буквы “а” в начало. Пример: s=каравай → s1=ааакрвй.

Answer 1

program z1;

var s,s1:string;

i:integer;

begin

readln (s);

s1:=s;

for i:=1 to length (s1) do

if s1[i]='а' then

begin

delete(s1,i,1);

s1:='а'+s1

end;

writeln(s1);

end.

Объяснение:

Программа переставляет только русские строчные а.