Кварталы манхэттена состоят из авеню, направленных с юга на север и улиц, направленных с запада на восток. все улицы и авеню пронумерованы числами, начиная с 1 подряд (первая улица, вторая улица, третья улица и т. передвигаться можно только по улицам или по авеню. миша впервые попал на манхэттен. сейчас он стоит на пересечении авеню номер x1 и улицы номер y1. ему нужно попасть на перекресток авеню номер x2 и улицы номер y2. определите маршрут, который он должен пройти. программа получает на вход 4 числа: x1, y1, x2, y2, записанных в отдельных строках. все числа — натуральные, не превышают 103. начальное и конечное расположение миши не . программа должна вывести последовательность из латинских заглавных букв, описывающих маршрут, которому должен следовать миша. буква «n» обозначает перемещение на один квартал на север, «s» — на юг, «w» — на запад, «e» — на восток. программа должна вывести самый короткий из всех возможных маршрутов, причем, вначале движение должно быть по улицам, а затем по авеню.

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

begin
    readln(x1, y1, x2, y2);
    
    for i := 1 to abs(x2 - x1) do
        if x2 > x1 then
            write('E')
        else
            write('W');
    
    for i := 1 to abs(y2 - y1) do
        if y2 > y1 then
            write('N')
        else
            write('S');
end.

Паскаль.

 

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.

Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.

1) цикл for

program p_for

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  p := 1;//начальное значение

  for i := 1 to n do  

     p := p * i;

  writeln(p);

end.  

2) цикл while

program p_while

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  while i <= n do  

  begin

     p := p * i;

     i := i + 1;

 end;

 writeln(p);

end.  

3) цикл until

program p_until

var

  p:  real;

  i, n: integer;

begin

  readln(n);

  i := 1;

  p := 1;//начальное значение

  repeat

     p := p * i;

     i := i + 1;

  until i > n;

  writeln(p);

end.  

Объяснение: