Код прикреплен файлом (в расширении .txt, знания не поддерживают расширение .c) и картинкой.
Пример работы программы прикреплен картинкой.
Пример как скомпилировать программу из консоли тоже прикреплен картинкой.
Спасибо за отметку "лучший ответ"
Вводишь А и Х- получаешь Y.
var
a,x,y:real;
begin
writeln('Введите A и X');
readln(a,x);
y:=(sqr(x)+sqr(a))/(1-sin(ln(sqr(x))));
writeln('Y = ',y);
<span>end.</span>
Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>
1) В 16 битной кодировке сообщение = 20*16=320 бит.
2) В 8 битной= 20*8=160.
<span>3) Если перекодирывать из 16 битной в 8 битную т 320-160=160 бит, или =20 байт
Ответ: 160 бит</span>
44 в 10ичной = 54 в 8ричной
44 в 10ичной = 2С в 16ричной
44 в 10ичной = 10110 в 2ичной