Это делается очень просто: var s,s1:string;i:integer; begin writeln('Введите строку:'); readln(s); s1:=''; for i:=1 to length(s) do s1:=s1+s[i]+s[i]; s:=s1; writeln(s); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
