Составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран

TheArinaS TheArinaS    1   15.06.2019 15:10    2

Ответы
sladkaiakailinn sladkaiakailinn  12.07.2020 18:26
Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика