Question

Сделать на паскале!Срочно!)
1) Напишите программу, которая заменяет в символьной строке все буквы «а» на буквы «б» с помощью цикла «пока» (while):
2) 11. Запишите какое значение будет иметь переменная s после вы-полнения фрагмента программы
s:= '123456789'
вставить('ABC', s, 3) s:= '123456789';
Insert('ABC', s, 3);

Answer 1

1)

var

 S : String;

begin

 readln(s);

while (Pos('а', S) > 0) or (Pos('a', S) > 0) do

   begin

     if Pos('а', S) > 0 then

       S[Pos('а',S)] := 'б'

         else

           S[Pos('a', S)]:= 'b';

   end;

writeln(S);

end.

2)

12ABC3456789