Закодируем 348 городов числовыми кодами от 0 до 347. Тогда необходимое для кодирования число бит определится представлением числа 347 в двоичной системе счисления.
347(10)=101011011(2), т.е. для записи такого числа потребуется двоичных разрядов или просто 9 бит.
Когда будет накоплена информация о 184 городах, она займет 184х9=1656 бит. В одном байте 8 бит, поэтому для перехода к байтам делим полученное значение на 8. 1656/8=207 (байт).
Ответ: 3) 207 байт.
Program abitura;
Uses Crt;
var n,i,r,n1,n2,n3:integer;
begin
clrscr;
write('Введите количество абитуриентов:');
readln(n);
for i:=1 to n do
begin
writeln('Абитуриент номер ' ,i );
write('Введите оценку за первый экзамен');
readln(n1);
write('Введите оценку за второй экзамен');
readln(n2);
write('Введите оценку за третий экзамен');
readln(n3);
r:=n1+n2+n3;
if (r>=13) then writeln('Вы зачислены на дневное отделение ');
if (r>10) and (r<12) then writeln('Вы зачислены на вечернее отделение ');
if (r>=8) and (r<=9) then writeln('Вы зачислены на заочное отделение ');
if (r<8) then writeln('Вам отказанно в зачислении ! ');
end;
readkey;
end.
На pascal abc
uses crt;
var
a, b, c : real;
begin
write('Введите три числа (через пробел): ');
readln(a, b, c);
if (a>=0) and (a<10) and (b>=0) and (b<10) and (c>=0) and (c<10)
then writeln ((a+b+c)/3)
else writeln ('Число не принадлежит промежутку [0;10)');
<span>end.</span>
Два раза перелить полный трехлитровый кувшин в пятилитровый.
Пролитая вода и есть ваш литр.
