Регистрация
Anonumus671
Есть ответ 👍

Пирог из яблочного пюре
Без соды

Обращаюсь к хозяюшкам ☺️
​

178
386
Посмотреть ответы 2

Ответы на вопрос:

Kaytha
Kaytha
4,8(31 оценок)

чго я ничего не понел

safeer
safeer
4,7(91 оценок)
var
  s, t : string;
  a : array [1..2,0..200] of integer;
  i, j, k : integer;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(s); t:='';
  k:=0; a[1,k]:=0; a[2,k]:=0;
  for i:=1 to length(s) do
  begin
    k:=k+1;
    if s[i]='N' then begin a[1,k]:=a[1,k-1]; a[2,k]:=a[2,k-1]+1; t:=t+'S' end;
    if s[i]='E' then begin a[1,k]:=a[1,k-1]+1; a[2,k]:=a[2,k-1]; t:=t+'W' end;
    if s[i]='S' then begin a[1,k]:=a[1,k-1]; a[2,k]:=a[2,k-1]-1; t:=t+'N' end;
    if s[i]='W' then begin a[1,k]:=a[1,k-1]-1; a[2,k]:=a[2,k-1]; t:=t+'E' end;
    j:=0;
    while (a[1,j]<>a[1,k]) or (a[2,j]<>a[2,k]) do j:=j+1;
    if j<k then
    begin
      delete(t,j+1,k-j);
      k:=j
    end
  end;
  for i:=length(t) downto 1 do write(t[i])
end.

Популярно: Другие предметы