Помогите люди добрые,пожалуйста)дана строка.если она начинается ** 'abc',то заменить их...

Question

Помогите люди добрые,пожалуйста)дана строка.если она начинается на 'abc',то заменить их на 'www',иначе добавить в конец строки 'zzz'.задачка на паскале.заранее спасибо)

Comments

Моя программа тоже универсальная вроде, функция copy идет уже с проверкой не выдает никаких ошибок.

Answer 1

Var S:string;
Begin
WriteLn('Введите строку:');
ReadLn(S);
if Length(S)>=3 then
   if (S[1] = 'a')and(S[2] = 'b')and(S[3] = 'c') then
      Begin
      S[1]:='w';
      S[2]:='w';
      S[3]:='w'
      End
   else S:=S+'zzz'
else S:=S+'zzz';
WriteLn(S)
End.

Answer 2

Var s: string;
begin
  read(s);
  if copy(s, 1, 3) = 'abc' then
    s := 'www' + copy(s, 4, length(s) - 3)
  else
    s := s + 'zzz';
  write(s);
end.