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

Question

Информатика

Леонидыч

3 августа, 21:29

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

+2

Ответы (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.