Поделитесь своими знаниями, ответьте на вопрос:
1. Перевести десятичное число 89, 12 в систему счисления с основанием 2. 2. Перевести число 1101101, 110 с основанием 2 в десятичную систему счисления. 3. Перевести 8-е число 532, 431 в 16-ричную систему счисления. 4. Осуществить алгебраическое сложение целых двоичных чисел -24 и 17 в обратном и дополнительном кодах. Результат представить в прямом коде. 5. Сложить два двоичных числа в форме с плавающей запятой. 1 число: мантисса 0, 11011 и порядок 101 2 число; 0, 01011 и 110 6. Заданы двоичные числа X и Y. Вычислить X+Y, X-Y, X*Y, X/Y если: X=100001011; Y=1011.01.
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}