Сколько килобайтов составляет сообщение из 250 символов 16 символьного алфавита?

16 символов можно закодировать 4 битами, так как 16=2^4, тоесть 1 символ = 4 бита.  в таком случае, 250 символов = 4 бита *250=1000 бита=1000/8 байта=125   байта или  0,12кбайта. 

Type   uch=record       fam: string[20];       nam: string[20];       city: string[20];       street: string[20];       numb: string[8]   end; var   f: file of uch;   buch: uch; { буфер }   c: string; begin   assign(f,'uch.txt');   reset(f);   write('введите название города: '); readln(c);   while not eof(f) do begin       read(f,buch);       if c=trim(buch.city) then           with buch do writeln(fam,' ',nam,' ',street,' ',numb)   end;   close(f) end.

Уровень а type   num=integer; { можно поменять на real, longint, даже } procedure swap(var a,b: num); { меняет местами значения a и b } var   t: num; begin   t: =a; a: =b; b: =t end; procedure moving(var a,b,c: num); begin   if a> b then begin       swap(a,b);       if b> c then begin           swap(b,c);           if a> b then swap(a,b)       end   end   else begin       if b> c then swap(b,c);       if a> b then swap(a,b)   end end; var   a,b,c: num; begin   write('введите три числа: '); read(a,b,c);   moving(a,b,c);   writeln(a,' ',b,' ',c) end. уровень в function gcd(a,b: longint): longint; { нахождение нод } var   i: longint; begin   while b < > 0 do   begin       a : = a mod b;       i : = b; b : = a; a : = i   end;   gcd : = a end; procedure shortfraction(var m,n: longint); var   k: longint; begin   k: =gcd(m,n);   m: =m div k; n: =n div k end; var   a,b: longint; begin   write('введите числитель и знаменатель дроби: '); readln(a,b);   shortfraction(a,b);   writeln('дробь после сокращения равна ',a,'/',b) end. тестовое решение: введите числитель и знаменатель дроби: 25 15 дробь после сокращения равна 5/3