Вводится строка слов. Вывести слова в обратном порядке.
Решение:
var
str: string;
len, i, a: byte;
begin
readln(str);
len := length(str);
a := 0;
for i:=len downto 1 do begin
if str[i] = ' ' then begin
write(copy(str,i+1,a),' ');
a := 0;
end
else
a := a + 1;
end;
write(copy(str,i,a));
writeln;
end.
