(РТ, с.38 - №1г) Составьте программу замены русских букв «а» на буквы «о» в строке s.
var s: string; begin writeln ('Введите строку '); readln (s); for var i:=1 to length(s) do if s[i]='а' then s[i]:='o' ;
writeln ('Результат=', s);
end.
2-йспособ:
var s: string;
begin
writeln ('Введите строку '); readln (s);
for var i:=1 to length(s) do
if copy(s, i, 1)='а' then
begin
delete (s, i, 1);
insert ('o', s, i)
end;
writeln ('Результат=', s);
end.