Написать программу которая из двух строк составляет третью, путём чередования символов первой и второй строки.
Написать программу которая из двух строк составляет третью, путём чередования символов первой и второй строки.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы