Даны два слова. Слова состоят из чётного количества символов. Получите третье слово,...

Question

Даны два слова. Слова состоят из чётного количества символов. Получите третье слово, которое состоит из первой половины первого слова и второй половины второго слова.
Например: ввод: тело, кома; вывод: тема. (ПАСКАЛЬ)

Answer 1

Var s1,s2:string;
    len:integer;
begin
  readln(s1);
  readln(s2);
  len:=Length(s1) div 2;
  s1:=Copy(s1,1,len)+Copy(s2,len+1,len);
  writeln(s1);
end.