Ответы
Ответ дал:
0
procedure TForm1.Button1Click(Sender: TObject);
var
S1, S2, S3 : String;
i : Integer;
begin
S1 := Edit1.Text; //Исходная строка.
S2 := ''; //Строка из чётных символов строки S1.
S3 := ''; //Строка из НЕчётных символов строки S1.
for i := 1 to Length(S) do
if i mod 2 = 0 then
S2 := S2 + S1[i]
else
S3 := S3 + S1[i];
Edit2.Text := S2;
Edut3.Text := S3;
end;
veronikaleyts:
Привет. Помогите, пожалуйста, с заданием. https://znanija.com/task/48562779
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад