Вставка в строку

ИГРАЕМ И ПОВТОРЯЕМ

ПРЕЗЕНТАЦИЯ К УРОКУ

Задача. Дана строка: логин@адрес_сервера. Для сохранения данных пользователя решили в эту строку добавить пароль. Пароль добавляют перед собакой и перед самим паролем ставится :

Строка должна принять вид: логин:пароль@адрес_сервера.

Пример

Входные строки:

CoolUser@ftp.erunda.ru

parol

Вывод: CoolUser:parol@ftp.erunda.ru

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 2. Набрать и выполнить программу из классной работы.

Входные строки:

CoolUser@ftp.erunda.ru

parol

Вывод: CoolUser:parol@ftp.erunda.ru

var s,p:string;

    ns:integer;

begin

 writeln('Введите строку вида логин@адрес_сервера');

 readln(s);

 writeln('Введите пароль');

 readln(p);

 ...

end.

Задание 3. В строку   ФИО&Суммарный балл добавить  после ФИО часть ^Средний балл 

Должна получиться строка вида ФИО^Средний балл&Суммарный балл

Пример

Входые данные: 

ИвановИ.И&27

8,9

Вывод:  ИвановИ.И.^8,9&27

Задание 4. Дан текст. Один из его фрагментов выделен группами символов ##. Заменить выделение группами символов ‘<‘ и ‘>’. 

Пример: 

Входная строка: Это ##тестовый пример## для задачи на строки.

Вывод: Это <тестовый> пример для задачи на строки.

Задание 5. Заменить в тексте слово «ноябрь» на «декабрь».  Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.

var s:string;

    ns:integer;

begin

  readln(s);

  ns:=..{ищем,  с какого символа начинается  слово «ноябрь»}

  while ns... do {повторяем действия пока в тексте есть это слово}

             begin

             ... {удаляем слово}

             ...{вставляем новое слово}

             ...{ищем снова слово}   

            end;

writeln(s);                          

end.