var s:string;
i:integer;
begin
writeln ('введите строку');
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' then s[i]:='б' else
  if s[i]='б' then s[i]:='а' ;
end;
writeln(s);end.
В эту программу нужно добавить условие: склеить слово из букв стоящих на четных позиций
ПАСКАЛЬ

спасибо)

Как-то так.var s,tx:string;i:integer;beginwriteln ('введите строку');readln(s);for i:=1 to length(s) do beginif s[i]='а' then s[i]:='б' elseif s[i]='б' then s[i]:='а';if i mod 2=0 then tx:=tx+s[i];end;writeln(s);writeln(tx);end.