Вывести строку в обратном порядке

@alexey_random · Регистрация: 24.12.2012

Author24 — интернет-сервис помощи студентам

@orange_rush · 24.12.2012, 14:58

Pascal

var     s,s2 :string;
        i :byte;
begin
        readln(s);
        for i:=1 to length(s) do
                s2:=s[i]+s2;
        writeln(s2);
        readln;
end.

@alexey_random 0 / 0 / 0 Регистрация: 24.12.2012 Сообщений: 4
		1
	Вывести строку в обратном порядке 24.12.2012, 14:01. Показов 1153. Ответов 1 Метки нет (Все метки) Вывести строку в обратном порядке 0

	24.12.2012, 14:58

Вывести строку в обратном порядке

Решение