Автор: Dan 23.01.2004 4:17
Здравствуйте, помогите пожалуйста написать программку!
Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}' в конец.
Автор: P@sh@ 23.01.2004 9:31
Код
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.