Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}' в конец.
Полная версия: Задача про символы
Здравствуйте, помогите пожалуйста написать программку!
Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}' в конец.
Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}' в конец.
Код
var s: string;
i: integer;
m: boolean;
begin
readln(s); m:=true;
for i:=1 to length(s) do begin
if (s[i]>='0')and(s[i]<='9') then begin
s[i]:='*'; m:=false;
end;
if (s[i]='d')and(i<length(s)) then
if s[i+1]='e' then begin
s[i]:='e'; s[i+1]:='d';
m:=false;
end;
end;
if m then s:='{'+s+'}';
writeln(s);
end.
СПАСИБО!!!!! ;D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.