Var i:integer; s:string; begin write('Vvedite text: '); readln(s); for i:=1 to Length(s) do begin if (s[i]='o') then s[i]:='a'; end; writeln(s); readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
