Напишите программу для того, чтобы в целом натуральном числе n поменять местами первую и последнюю цифру, с цикла while в pascal abc. за него 15 . , !

Program chik; var n,a,b,s,q,k: integer; begin readln(n); q: =n mod 10; while n> 0 do begin b: =n mod 10; n: =n div 10; s: =s*10+b; end; n: =q; s: =s div 10; while s> 10 do begin k: =s mod 10; s: =s div 10; n: =n*10+k; end; n: =n*10+b; writeln(n); end.

1) 

var x: array[12] of real;

i: integer;

 

begin

    for i: =1 to 12 do

    begin

      readln(x[i]);

      x[i]: =x[i]-23;

    end;

    for i: =1 to 12 do

      writeln(x[i])

end.

2)

var m: array[100] of integer;

i: integer;

begin

    for i: =1 to 100 do begin

      readln(m[i]);

        if(m[i] mod 2=0) then m[i]: =m[i]*m[i]

        else   m[i]=2*m[i];

    end;    

    for i: =1 to 100 do

      writeln(m[i]);

end.

3)

var price: array[20] of real;

i: integer;

minprice: real;

begin

    minprice: =10000;

    for i: =1 to 20 do

    begin

      readln(price[i]);

      if (price[i]< minprice) then minprice: =price[i];

    end;

    writeln(minprice)

end.

4) 

var m: array[100] of integer;

i, counter: integer;

begin

    readln(m[1]);

    counter: =0;

    for i: =2 to 100 do begin

      readln(m[i]);

      if ((m[i] mod 2=1) and (m[i-1] mod 2=1)) then inc(counter);

    end;

    writeln(counter)

end.

2)если на столе скопилось слишком много документов и инструментов и они начали мешать работе пользователя, те окна, которые временно не нужны, можно уменьшить в размерах или же полностью свернуть. за свернутым окном сохраняются все ресурсы. мало того, программа, окно которой свернуто, продолжает выполняться. свернутое окно можно вновь развернуть и его в то состояние, которое окно имело перед свертыванием. свернутое программное окно представлено кнопкой на панели , а свернутое окно документа обычно размещается в углу рабочей зоны программного окна. свертывание окна часто называют минимизацией окна. способы свертывания окна: □ рекомендуемый — щелкнуть по кнопке свертывания в заголовке окна; □ стандартный — выбрать команду свернуть из системного меню окна; □ дополнительный способ: программное окно можно свернуть, щелкнув по кнопке окна на панели .кнопка свернутого окна рельефно выделена над панелью , а кнопка развернутого — углублена в панель. при наличии на рабочем столе нескольких окон последний прием, в зависимости от ситуации, может к переключению на другое окно.5)окно может иметь полосы прокрутки. это говорит о том, что размер окна слишком мал, чтобы полностью отразить всѐ содержимое. каждая полоса прокрутки имеет ползунок. перетаскивая ползунки по полосе прокрутки, можно просмотреть в окне всю рабочую область. небольшое смещение рабочей области выполняют щелчками на кнопках прокрутки. в одном из открытых окон выполните следующие действия: нажимайте клавишу enter, пока не активизируется вертикальная полоса прокрутки; нажимайте клавишу пробел, пока не активизируется горизонтальная полоса прокрутки; перетащите вверх ползунок вертикальной полосы прокрутки; перетащите влево ползунок горизонтальной полосы прокрутки; вернитесь к курсору, щелкая на кнопках прокрутки.