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

1) Составьте программу, меняющую в слове X букву "о" на букву "и", если "о" стоит на четном месте.
2)Составьте программу, меняющую в слове Х все
сочетания "ва" на "к".
ЗАРАНЕЕ СПАСИБО)

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

1.
Var 
s:string; 
i:integer;
Begin 
Write(Введите строку ); 
Readln(s); 
for i:= 1 to length(s) do   
if ((s[i]=о)or(s[i]=o))and((i mod 2) = 0) then s[i]:=и; 
Writeln(s); 
End.  
 
2. 
Var 
s:string; 
i,j:integer;
Begin 
Write(Введите строку ); 
Readln(s); 
s:=s+ ; 
for i:= 1 to length(s) do   
if (s[i]=в)and(s[i+1] = а) then Begin s[i]:=к; for j:=(i+1) to (length(s)-1) do s[j]:=s[j+1]; end; 
Writeln(s); 
End.