Пусть задана некоторая строка str, необходимо вывести в обратном порядке - 27 Ноября 2012

Главная » 2012 » Ноябрь » 27 » Пусть задана некоторая строка str, необходимо вывести в обратном порядке

15:41 Пусть задана некоторая строка str, необходимо вывести в обратном порядке
{2. Пусть задана некоторая строка str, необходимо вывести в обратном порядке. } var s2,s:string; x:integer; begin s:='2. Пусть задана некоторая строка str, необходимо вывести в обратном порядке.'; s2:=''; for x:=length(s) downto 1 do begin s2:=s2+s[x]; end; writeln(s2); end.
1 2 3 4 5 Просмотров: 1607 \| Добавил: NetSoftWare \| Рейтинг: 0.0/0

Delphi заготовки