Даны две строки символов одинаковой длины.сформировать новую строку по следующему правилу:сначала следует первый символ первой строки,затем первый символ второй строки и тд.решите пожалуйста в pascal.
Даны две строки символов одинаковой длины.сформировать новую строку по следующему правилу:сначала следует первый символ первой строки,затем первый символ второй строки и тд.решите пожалуйста в 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.
Не нашли ответ?
Похожие вопросы