Составить программу в Паскале.

Вводится строка. Удвоить каждый ее символ.

Question

Информатика

Бронислава

8 сентября, 12:44

Составить программу в Паскале.

Вводится строка. Удвоить каждый ее символ.

+1

Ответы (1)

Знаете ответ?

Варюша · Answer 1

Это делается очень просто:

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.

Составить программу в Паскале.Вводится строка. Удвоить каждый ее символ.

Составить программу в Паскале.

Вводится строка. Удвоить каждый ее символ.