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

Помогите пожалуйста составить программу. 1.Составьте программу, которая удаляет в строке s все точки. 2.Составьте программу, которая заменяет в строке s буквы "о" на буквы "и", а буквы "и"- на буквы "о".

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

Первая

var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=. then Delete(s,i,1);
writeln(s);
readln;
end.

И вторая

var s:string; i:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]=о then s[i]:=и else if s[i]=и then s[i]:=о;
writeln(s);
readln;
end.