Отдельные свойства объектов окружающего мира вызывают у нас ощущения.
<span>shift, caps lock) это же элементарно </span>
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
Для большей точности и смотря какие модели