Помогите люди благие,пожалуйста)дана строчка.если она начинается на 039;abc039;,то поменять их на

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

Задать свой вопрос
Вероника
Моя программа тоже универсальная вроде, функция copy идет уже с проверкой не выдает никаких ошибок.
2 ответа
Var S:string;
Begin
WriteLn('Введите строку:');
ReadLn(S);
if Length(S)gt;=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.
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт