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

Answer 2

Для выполнения этих задач на Pascal, вот соответствующий код:

1. Замена букв «а» на буквы «б» с использованием цикла while:

pascalCopy code
program ReplaceCharacters;
var
  inputString, resultString: string;
  i: integer;
begin
  write('Введите строку: ');
  readln(inputString);
  
  resultString := inputString; // Инициализируем результат начальным значением
  
  i := 1;
  while i <= length(inputString) do
  begin
    if inputString[i] = 'a' then
      resultString[i] := 'b';
    i := i + 1;
  end;
  
  writeln('Результат замены: ', resultString);
end.

2. Значение переменной s после выполнения Insert:

pascalCopy code
program InsertExample;
var
  s: string;
begin
  s := '123456789';
  Insert('ABC', s, 3);
  writeln('Значение переменной s после вставки: ', s);
end.

Обратите внимание, что в Pascal индексы символов начинаются с 1, а не с 0, поэтому во второй программе мы используем 3 для вставки строки 'ABC' внутрь строки s после третьего символа.