Перевести число 252 в двоичный код двумя способами

Всовременном мире роль информатики, средств обработки, передачи, накопления информации неизмеримо возросла. средства информатики и вычислительной техники сейчас во многом определяют научно-технический потенциал страны, уровень развития ее народного хозяйства, образ жизни и деятельности человека. еще ротшильд говорил: «кто владеет информацией, тот владеет миром». для целенаправленного использования информации ее необходимо собирать, преобразовывать, передавать, накапливать и систематизировать. все эти процессы, связанные с определенными операциями над информацией, называются информационными процессами. получение и преобразование информации является необходимым условием жизнедеятельности любого организма. живые существа способны не только воспринимать информацию из окружающей среды с органов чувств, но и обмениваться ею между собой. человек также воспринимает информацию с органов чувств, а для обмена информацией между людьми используются языки. за время развития человеческого общества таких языков возникло много. прежде всего, это родные языки (, татарский, и др., на которых говорят многочисленные народы мира. роль языка для человечества исключительно велика. без него, без обмена информацией между людьми было бы невозможным возникновение и развитие общества. информационные процессы характерны не только для живой природы, человека, общества. человечеством созданы технические устройства – автоматы, работа которых также связана с процессами получения, передачи и хранения информации. деятельность человека, связанную с процессами получения, преобразования, накопления и передачи информации, называют информационной деятельностью.

Var   x, a, b, c, y: integer; begin   write('введите целое трехзначное положительное число -> ');   readln(x);   a : = x mod 10;   y : = 100 * a + (x div 10);   writeln('первоначальное число было: ', y);   b : = y mod 100;   writeln('зачеркнули первую цифру: ', b);   b : = 10 * b;   writeln('умножили на 10: ', b);   b : = b + (y div 100);   writeln('прибавили зачеркнутую цифру: ', b);   writeln('и получили введенное нами число - результат') end. тестовое решение: введите целое трехзначное положительное число -> 183 первоначальное число было: 318 зачеркнули первую цифру: 18 умножили на 10: 180 прибавили зачеркнутую цифру: 183 и получили введенное нами число - результат