Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача про символы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Dan
Здравствуйте, помогите пожалуйста написать программку! smile.gif

Ввести с клавиатуры символьный рядок. Модифицировать его по правилу:
Все буквосочетания de поменять на  ed, а все цифры поменять на '*'. Если ни одной замены не сделано, то добавить к рядку символ '{' в начало, а символ '}'  в конец.
P@sh@
Код

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.
The_Annie
СПАСИБО!!!!! ;D
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.