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

Question

Информатика

Надрат

28 июня, 14:19

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

+4

Ответы (1)

Знаете ответ на вопрос?

Кешом · Answer 1

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.