В строке 's2:= s2 + s1[i] + s1[i];'
По умолчанию все переменные равны нулю
т.к. вы не задали значение i и вводите эту строку вне цикла for, то получается что вы запрашиваете нулевой элемент массива s1, при том что нумерация начинается с единицы, поэтому и выдаёт ошибку.
"Индекс находится вне границ массива"
program raf105;
var s1,s2:string;
i:integer;
begin
writeln('Введите строку');
readln(s1);
s2:='';
for i:=1 to length(s1) do
s2:= s2 + s1[i] + s1[i];
writeln(s2);
end.
Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она
Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.
Кто такой мильтиад и какова его роль в победе над персами?
Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией
Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.