ДЕЛЬФИ ПРОГРАММИРОВАНИЕ, НУЖНО ЧЕТКО НАПИСАТЬ ФОРМУЛИРОВКУ ЗАДАЧИ
program n_4;
var s: string; i, n: byte;
begin
write('введите строку: '); readln(s);
n := length(s) ;
for i := 1 to n do insert(s[i], s, length(s) - i + 2);
writeln('ответ: ', s) end.​

sokolovsokol3андрей    1   19.04.2020 16:45    0