Пользователь вводит две строки, а программа объединяет их , чередуя символы. Например:Даны: qwerty ABCDРезультат: qAwBeCrDty Плиз помогите ...
Пользователь вводит две строки, а программа объединяет их , чередуя символы. Например:
Даны: qwerty ABCD
Результат: qAwBeCrDty
Плиз помогите ...
Гость
Ответ(ы) на вопрос:
Гостьvar s1,s2,r:string; i:integer;
begin
read(s1,s2);
r:='';
if length(s1)>length(s2) then for i:=1 to length(s1) do r:=r+s1[i]+s2[i]
else for i:=1 to length(s2) do r:=r+s1[i]+s2[i];
write(r)
end.
Не нашли ответ?
Похожие вопросы