Если не использовать строки, то решение может быть таким:
var n,k,st:integer;
begin
write('n='); readln(n);
k:=0; st:=1;
while n>0 do
begin
if n mod 10 <> 0 then
begin
k:=(n mod 10)*st+k;
st:=st*10;
end;
n:=n div 10;
end;
writeln(k);
<span>end.
</span>
Счётчик кома́нд (также PC = program counter, IP = instruction pointer, IAR = instruction address register, СЧАК = счётчик адресуемых команд) — регистр процессора, содержащий адрес текущей выполняемой команды. В зависимости от архитектуры содержит либо адрес инструкции, которая будет выполняться, либо той, которая выполняется в данный момент<span>[источник не указан 2676 дней]</span>.
В большинстве процессоров, после выполнения команды, если она не нарушает последовательности команд (например, команда перехода), счетчик автоматически увеличивается (постинкремент). Понятие счётчика команд сильно связано с фон Неймановской архитектурой, одним из принципов которой является выполнение команд друг за другом в определенной последовательности.
Нажми на скрепочку
На эту
Эмм, ну 118+1110=1228
теперь чтобы из десятичной перевести в двоичную надо все делить на 2
1228:2=614 ост0
614:2=307 ост0
307:2=153 ост1
153:2=76 ост1
76:2=38 ост0
38:2=19 ост0
19:2=9 ост1
9:2=4 ост1
4:2=2 ост0
2:2=1 ост0
1:2=0 ост 1
пишем результат с конца, получается 10011001100
Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>