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

@Jacky · Регистрация: 18.11.2012

Помогите решить.
Вывести первое слово строки в обратном порядке.

@XaKO · 19.11.2012, 10:43

Pascal

var
s,b:string;
i:integer;
begin
writeln('Строка');
readln(s);
for i:=1 to length(s) do
begin
if s[i]=' ' then
break;
b:=s[i]+b;
end;
write(b);
end.

Добавлено через 4 минуты
Я изменил

@Jacky 2 / 2 / 1 Регистрация: 18.11.2012 Сообщений: 25
		1
	Вывести первое слово строки в обратном порядке 19.11.2012, 10:24. Показов 2010. Ответов 1 Метки нет (Все метки) Помогите решить. Вывести первое слово строки в обратном порядке. 0

	19.11.2012, 10:43

Решение