составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран
Ответы
Ответ дал:
0
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.
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.
Вас заинтересует
1 год назад
1 год назад
9 лет назад
9 лет назад