Question

13. Какой оператор надо вставить вместо многоточия, чтобы в строке S были записаны символы строки Q в обратном порядке? Вводите ответ без пробелов. Q := '123456789'; S := '1'; for k:=2 to 9 do begin ... end;

Answer 1

S:=S+Q[length(Q)-(k-2)];

Answer 2

Для того чтобы вставить оператор, который запишет символы строки Q в обратном порядке в строку S, можно использовать функцию Copy:

cssCopy code
Q := '123456789';
S := '1';

for k := 2 to 9 do
begin
  S := S + Copy(Q, 10 - k, 1);
end;

В данном примере функция Copy копирует один символ из строки Q, начиная с позиции 10 - k, и добавляет его в конец строки S на каждой итерации цикла, тем самым записывая символы строки Q в обратном порядке в строку S.