Технический форум - Строки. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Строки. Паскаль (http://www.tehnari.ru/f41/t74587/)

QIWI	07.06.2012 15:27

Строки. Паскаль

Помогите решить задачу. Условие: Ввести строку и преобразовать её таким образом, чтобы перед каждым символом стояло 3 символа - . Вывести строку

Vladimir_S

07.06.2012 15:39

Не понял - какие три символа?

Vladimir_S

07.06.2012 16:00

Ну что же, раз Вы изволили удрать, не ответив на вопрос, то уж не взыщите - как понял:

Код:

Var

 S1,S2,S0:String;

 i:Byte;

Begin

 S0:='---';

 Repeat

  Writeln('Enter the string:');

  Readln(S1);

  If Length(S1)>63 then Writeln('Too long! Try another.');

 Until Length(S1)<64;

 S2:='';

 For i:=1 to Length(S1) do

  S2:=S2+S0+S1[i];

 Writeln(S2);

 Readln

End.

QIWI	07.06.2012 16:37

Спасибо большое!

Часовой пояс GMT +4, время: 06:27.