Question

Составить программу, удваивающую буквы “а” и “б” в слове. pascal

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadlnString.Select(t -> LowCase(t) in ['а', 'б'] ? 2 * t : t)

     .JoinIntoString('').Println

end.

А роза упала на лапу Азора

АА розаа упаалаа наа лаапу ААзораа

Answer 2

var s:string;

i:integer;

begin

write ('Введите строку: ');

readln(s);  

for i:=length(s) downto 1 do

begin

if s[i]='а' then insert('а',s,i);

if s[i]='б' then insert('б',s,i);

if s[i]='А' then insert('А',s,i);

if s[i]='Б' then insert('Б',s,i);

end;

writeln(s);

end.