Сообщение, записанное буквами из 256-символьного алфавита, содержит 50 символов.какой объеи информации оно несет?

8бит/символ бит = 50 байт =)

2)program 2; var k: integer;       tmp: real;       b: string;       c: string;       i: integer; begin           k: =0; i: =0; tmp: =0;           write('введите k: ');         read(k);         repeat                     tmp: =exp(i*ln(10));                     str(tmp: 0: 0, c);                     b: =b+c;                     i: =i+1;         until length(b) > = k;         c: =copy(b, k, 1);           writeln(b);         writeln('k-я цифра: ', c);         readln(k); end.

Var   i,o: text;   n,k,res: integer;   b: boolean; begin   res: =1;   b: =false;   assign(i,'fact.in');   assign(o,'fact.out');   reset(i);   rewrite(o);   read(i,n);   close(i);   for k: =1 to n do   begin     res: =res*k;     if res=n then       begin         b: =true;         write(o,'yes');           break;       end;   end;   if b=false then   write(o,'no');   close(o); end.