Advertisement
Alex_Fomin

KYZYL KYZYL

Nov 7th, 2015
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.57 KB | None | 0 0
  1. // Ввести строки s1 и s2. Первые 2 символа s2 удалить и вставить в середину s1 (если в s1 нечетное кол-во символов, то удалить последний. s1 и s2 - соединить.
  2.  
  3. Program CPascal;
  4.  
  5. var st1,st2:string;
  6.  
  7. Begin
  8. Write('Введите первую строку: '); Readln(St1);
  9. Write('Введите вторую строку: '); Readln(St2);
  10.  
  11. Delete(St2,1,2);
  12. if Odd(Length(St1)) then Delete(St1,Length(St1),1);
  13. Insert(St2,St1,Round(Length(St1)/2));
  14.  
  15. Writeln(St1);
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement