Помогите, пожалуйста, написать программу на языке Паскаль

НастяКозлова · 14.05.2014, 18:16

Помогите пожалуйста, написать программу в Паскале:
Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.

Vladimir_S · 14.05.2014, 19:19

Цитата:

Сообщение от НастяКозлова

Помогите пожалуйста, написать программу в Паскале:
Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.

Задача века, однако... Почти что и неразрешимая. Вот разве что так попробовать

:

Код:

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.

НастяКозлова · 15.05.2014, 18:18

Цитата:

Сообщение от 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.

Спасибо огромное!))

14.05.2014, 18:16	#1 (permalink)
НастяКозлова Новичок Регистрация: 05.04.2014 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите, пожалуйста, написать программу на языке Паскаль Помогите пожалуйста, написать программу в Паскале: Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070