Даны две строки символов одинаковой длины.сформировать новую строку по следующему правилу:сначала следует первый символ первой строки,затем первый символ второй строки и тд.решите пожалуйста в pascal.

Var
a,b,c:string;
i:integer;
begin
repeat
  writeln(Введите строки равной длины);
readln(a);
  readln(b);
Until length(a)=length(b);
for i:=1 to length(a)do
c:=c+a[i]+b[i];
writeln(c);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!