Дана последовательность натуральных чисел 1, 2, 3, n (1 ≤ n ≤ 1000). необходимо сначала расположить в обратном порядке часть этой последовательности от элемента с номером a до элемента с номером b, а затем от c до d (a < b; c < d; 1 ≤ a, b, c, d ≤ n). вводятся натуральные числа числа n, a, b, c, d. требуется вывести полученную последовательность.

Var n,a,b,c,d,i: integer; begin write('n = '); readln(n); write('a и b: '); readln(a,b); write('c и d: '); readln(c,d); for i: =1 to a-1 do write(i,' '); for i: =b downto a do write(i,' '); for i: =b+1 to c-1 do write(i,' '); for i: =d downto c do write(i,' '); for i: =d+1 to n do write(i,' '); end. пример: n = 20 a и b:   5 10 c и d:   14 18 1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20 

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.