15.05.2014, 18:18
|
#3 (permalink)
|
|
Новичок
Регистрация: 05.04.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Задача века, однако... Почти что и неразрешимая. Вот разве что так попробовать  :
Код:
Var
S1,S2:String;
i:Byte;
Begin
Writeln('Enter the string:');
Readln(S1);
S2:='';
for i:=Length(S1) downto 1 do S2:=S2+S1[i];
Writeln('New string:');
Writeln(S2);
Readln
End.
|
Спасибо огромное!))
|
|
|