Var
A: integer;
begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.
A)
_________________________________
N=2^i
N=16=2^4=>i=4бита информационный объем 1 символа
Всего символов n=90=>
I=n*i= 90*4=360 бит инф.объем всего сообщения
1 байт=8 бит=>
360:8=45 байт
Ответ: 45 байт
20 div 8 = 2
=======================