Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
Для перевода необходимо умножить разряд числа на соответствующую ему степень разряда.
101011 = 25*1 + 24*0 + 23*1 + 22*0 + 21*1 + 20*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43
<span>Program a1; </span>
<span>var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; </span>
<span>begin </span>
<span>writeln('Vvedite massiv Y: '); {просим ввести массив} </span>
<span>for k:=1 to 14 do read(y[k]); {записываем массив} </span>
<span>s1:=0; s2:=0; {счётчики на 0} </span>
<span>minY:=y[1]; {присваиваем первому значению минимум...} </span>
<span>for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} </span>
<span>maxY:=y[1]; {присваиваем второму значению максимум...> <} </span>
<span>for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} </span>
<span>m:=y[s1]; {используя переменную m меняем местами элементы} </span>
<span>y[s1]:=y[s2]; </span>
<span>y[s2]:=m; </span>
<span>writeln('Novyi massiv: '); </span>
<span>for k:=1 to 14 do write(y[k],' '); {выводим новый массив} </span>
<span>readln </span>
<span>end.</span>
=КОРЕНЬ(ABS(A1)+COS(3.141593*A1))/(1+LN(A1)^2)
Один из простейших и самых распространенных типов данных в языках программирования. служит для представления целых чисел.
