Написать программу которая из двух строк составляет третью, путём чередования символов...

Question

Написать программу которая из двух строк составляет третью, путём чередования символов первой и второй строки.

Comments

на паскале?

---

да

---

сделаешь?? срочно нужно

---

стараюсь

---

А текст нужно вставить: Две строки одинакового размера

---

да это я понял

---

ну что?

Answer 1

program tref;
var a1,a2,a3:string;i,c,b,j,a:integer;
begin
a:=1;
b:=1;
readln(a1);
readln(a2);
a3:=a1+a2;for i:=1 to length(a1)*2 do

begin
if(i mod 2 = 1)then 
begin 
a3[i]:=a1[b];
b:=b+1; end;;
if(i mod 2 = 0)then
begin 

a3[i]:=a2[a];
a:=a+1;
end;
end;
writeln(a3);

end.

Comments

ну у меня работает,пиши если что

---

кстати,работает и когда строки разной длинны

---

даа, всё работает)) спасибо огромное)

---

да пожалуйста)

---

ещё поможешь?

---

что именно?

---

тоже программу нужно написать