Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.