Дана программа:
Program Primer
Var
А.result: real;
Begin
Writeln('Введите значения переменной A');
Write('A=');
Readln(А);
Result := sqr(4+A)*2);
Writeln (sqr((4+A) * 2)", result:8:0);
Readln;
End.
Запусти Паскаль, введи данную программу, получи результат, если A = 2.
ответ???​

1)Сколько бит информации несет сообщение о том,что занятия состоятся в одной из 36 аудиторий?диапазон 0-35 ,  2 в ст 6 > 35  ответ : 6 бит 2) Какое число следует за каждым из данных: (а) 667(внизу 8) (б) 101(внизу 2) Нечетное, вполне себе ответ.3) Выполните арифметические операции: (а)11010110(внизу 2) + 1111001(внизу 2) (б) 1110(внизу 2) * 1001(внизу 2) (в) 1100011(внизу 2) - 11111(внизу 2)   нужно делать столбиком как с обычными числами, только высший разряд увеличивать при переполнении текущего разряда большего чем 1.

А)1000010100  складываем по 1 биту по правилу 1+0=1,1+1=10,0+0=0 Если 
 +                   получается 10,то берем единицу и прибавляем к биту 
   1101010101  находящемуся левее
 10101101001
Г) 1430,2 здесь складываем как в десятичной, но если получается больше 7, то,
+             если это 8,то переносим 1 в разряд левее, в другом случае из числа 
     666,3  
        2316,5 вычитаем 8 переносим 1 и оставляем в этом разряде, то что осталось от вычитания
 Д)  388,3   
     +             
 209,4
      591,7
Тут тоже, что с восьмеричной только, если получилось 16, то переносим 1 , а если больше, то вычитаем