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

Составьте программу которая заменяет в строке s буквы е на и и буквы а на о

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

Program n;
var
    i: integer; 
    st: string;
begin
writeln(Введите строку);
readln(st);
for i:=1 to length(st) do begin
  if st[i]=е then st[i]:=и;
  if st[i]=а then st[i]:=о;
end;
writeln(st);
end.