Question

Очень сложная задача по информатике которую нужно записать на Pascal !!

Answer 1

Var
  x1, y1, x2, y2, i: integer;

begin
  Write('Введите через пробел исходные номера улицы и авеню: ');
  Readln(x1, y1);
  Write('Введите через пробел конечные номера улицы и авеню: ');
  Readln(x2, y2);
  Writeln('Найденный путь:;');
  if x2 > x1 then for i := x1 to x2 - 1 do Write('E')
  else for i := x1 downto x2 + 1 do Write('W');
  if y2 > y1 then for i := y1 to y2 - 1 do Write('N')
  else for i := y1 downto y2 + 1 do Write('S');
  Writeln
end.

Тестовое решение:

Введите через пробел исходные номера улицы и авеню: 1 3
Введите через пробел конечные номера улицы и авеню: 4 1
Найденный путь:;
EEESS

Введите через пробел исходные номера улицы и авеню: 58 49
Введите через пробел конечные номера улицы и авеню: 36 23
Найденный путь:;
WWWWWWWWWWWWWWWWWWWWWWSSSSSSSSSSSSSSSSSSSSSSSSSS