Question

Помогите решить в паскале авс.2. Дано предложение. Заменить в нем все вхождения буквосочетания «да» на «нет».

Answer 1

 
PascalABC.Net

const     n = 'нет'; 
var   
s : string;   
l,i : integer;    
begin 
readln (s); 
l := Length(s); 
i := 1;   
While i <=  l-1
do   
begin     
if s[i] = 'д' then     
if s[i+1] = 'а'
then       
begin       
l := l+1;       
delete (s,i,2);       
Insert (n,s,i);       
end;     
i := i +1;   
end; 
writeln (s); 
end.

Answer 2

Я попробую помочь вам решить задачу в Паскале. Вот один из возможных вариантов кода, который заменяет все буквосочетания «да» на «нет» в строке:

program ReplaceDA;
var
  s: string;
  i: integer;
begin
  writeln('Введите строку:');
  readln(s);
  for i := 1 to length(s) - 1 do
    if (s[i] = 'д') and (s[i + 1] = 'а') then
    begin
      s[i] := 'н';
      s[i + 1] := 'е';
    end;
  writeln('Полученная строка:');
  writeln(s);
end.

Вы можете запустить этот код и проверить его работу на разных примерах. Например, если ввести строку «Давайте сделаем это», то получится «Невайте снелаем это».

Если вы хотите узнать больше о работе со строками в Паскале, вы можете посмотреть эти источники: - [Буквосочетания в строке - Pascal - Киберфорум](https://www.cyberforum.ru/pascal/thread116372.html) - [pascal - Изменение регистра букв в Паскале - Stack Overflow на русском](https://ru.stackoverflow.com/questions/742949/%d0%98%d0%b7%d0%bc%d0%b5%d0%bd%d0%b5%d0%bd%d0%b8%d0%b5-%d1%80%d0%b5%d0%b3%d0%b8%d1%81%d1%82%d1%80%d0%b0-%d0%b1%d1%83%d0%ba%d0%b2-%d0%b2-%d0%9f%d0%b0%d1%81%d0%ba%d0%b0%d0%bb%d0%b5) - [Заменить в строке все буквы а на о - Turbo Pascal - Киберфорум](https://www.cyberforum.ru/turbo-pascal/thread751460.html)

Надеюсь, это было полезно для вас.