Ответы
Ответ дал:
0
Var S1,S2:string;
Begin
Write('Введите первую строку: ');
ReadLn(S1);
Write('Введите вторую строку: ');
ReadLn(S2);
S1:=S1+S2[Length(S2)];
Write('S1: ',S1);
End.
Begin
Write('Введите первую строку: ');
ReadLn(S1);
Write('Введите вторую строку: ');
ReadLn(S2);
S1:=S1+S2[Length(S2)];
Write('S1: ',S1);
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад