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

Question

Информатика

Желя

21 января, 17:44

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

+3

Ответы (1)

Знаете ответ на вопрос?

Кастрихий · Answer 1

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.