все данные представлены в цифровом виде как микропроцессор определяет что данные являются командой а не числом которое необходимо обработать

type adrcel=^element; element=record info: integer; next: adrcel; end; var start,last,new_el: adrcel; i: integer;

procedure del2(var start: adrcel);

var

p: adrcel;

begin

p: =start^.next;

if p< > nil then start^.next: =p^.next

end;

begin start: =nil; last: =nil; new_el: =nil; repeat new(new_el); write('info='); readln(new_el^.info);

new_el^.next: =nil; if start=nil thenstart: =new_el; else begin

last: =start;

while last^.next< > nil do last: =last^.next; last^.next: =new_el; end; write('продолжить? (1-да/0-нет): '); readln(i); until i=0; writeln('удалим 2-й элемент');

del2(start);

new_el: =start; while new_el< > nil do begin write(new_el^.info: 4); new_el: =new_el^.next; end; readln; end.

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

1)f0=(15*16^1)+(0*16^0)=240 (10 c.c), делим столбиком число 240 на 2 (и так далее продолжаем делить на 2 все частные числа) и записываем остатки с конца и получаем число 11110000(2 c.c)

2)1d4=(1*16^2)+(13*16^1)+(4*16^0)=256+208+4=468 (10 c.c), делим столбиком число 468 на 2 (и так далее продолжаем делить на 2 все частные числа)и записываем остатки с конца и получаем число 111010100 (2 c.c).