Помогите решить 2 задачку, прям срочно, прошу

Question

Помогите решить 2 задачку, прям срочно, прошу

---

Answer 1

PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadAllLines('input.txt');
  a.Select(s->s.ToWords.Reverse.JoinIntoString).WriteLines('output.txt')
end.

Как ни странно, быть может, но это - вся программа. Файлы следует положить в ту же папку, где находится исходная программа, либо указать перед именем полные пути.

Вот такое оно - современное программирование. Вот этому и надо учить...

Answer 2

Var s,st: string;
    i,j,n: integer;
    fi,fo: text;
begin
  assign(fi,'input.txt');
  reset(fi);
  assign(fo,'output.txt');
  rewrite(fo);
  while not eof(fi) do
  begin
    readln(fi,s);
    st:='';
    n:=length(s);
    for i:=length(s) downto 1 do
    begin
      if s[i]=' ' then
      begin
        for j:=i+1 to n do st:=st+s[j];
        st:=st+' ';
        n:=i-1;
      end;
    end;
    for j:=1 to n do st:=st+s[j];
    writeln(fo,st);    
  end;
  close(fi);
  close(fo);
end.