Цитата:
Сообщение от НастяКозлова
Помогите пожалуйста, написать программу в Паскале:
Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.
|
Задача века, однако... Почти что и неразрешимая. Вот разве что так попробовать
:
Код:
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.