Program p1;
var i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do
begin
a:=a+i;
end;
writeln(a);
readln;
end.
Var b,i,k,n: int64;
begin
readln(n);
b:=1;
for i := 1 to n do
b:=b*i;
writeln(b);
end.
Входные данные подставлять в переменную n
N=2^i
N=16=2^4=>i=4бита информационный объем 1 символа
Всего символов n=90=>
I=n*i = 90*4=360 бит инф. объем всего сообщения
1 байт=8 бит=>
360:8=45 байт
Ответ: 45 байт
Program pr;
Var a, b, c, d:integer;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
Write('C=');
Readln(c);
Write('D=');
Readln(d);
if a