|
zadach9.PAS |
|
{* Задача 9 *}Unit ZADACH9; InterfaceImplementationBegin writeln( 'Из двух восьмибуквенных слов образовать последовательность букв, в которой должны чередоваться буквы первого и второго слова.'); End. Program pr3;
Uses zadach9.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
s1 : String;
s2 : String;
s : String;
i : integer;
Begin
read (s1);
read (s2);
For i := 1 To 8 Do {* Увеличиваем i от 1 до 8 с шагом 1 *}
s := s + s1[i] + s2[i];
write (s);
End.
|