Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // Ввести строки s1 и s2. Первые 2 символа s2 удалить и вставить в середину s1 (если в s1 нечетное кол-во символов, то удалить последний. s1 и s2 - соединить.
- Program CPascal;
- var st1,st2:string;
- Begin
- Write('Введите первую строку: '); Readln(St1);
- Write('Введите вторую строку: '); Readln(St2);
- Delete(St2,1,2);
- if Odd(Length(St1)) then Delete(St1,Length(St1),1);
- Insert(St2,St1,Round(Length(St1)/2));
- Writeln(St1);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement