begin i := 0; writeln('Введите последовательность чисел,оканчивающихся отрицательным числом'); repeat readln(n); if n > 0 then begin s := s + n; i := i + 1; end; until n < 0; writeln(s / i); end.
{2}
var i, n: integer;
begin i := 0; writeln('Введите последовательность чисел,оканчивающихся 0'); repeat readln(n); if n <> 0 then i := i + 1; until n = 0; writeln(i); end.
1. Определим размер записи. Трехзначное десятичное число - это число от 100 до 999. Таких чисел может быть 900. Поскольку 2⁹<900<2¹⁰, то для кодирования нам потребуется 10 бит. По условию числа кодируются неким целым число байт. В байте 8 бит, поэтому для представления 10 бит потребуется 2 байта. Итого, длина записи составит 12+2=14 байт. 2. Определим возможное количество записей. 2 Кбайта = 2×1024 байта = 2048 байт. Количество записей равно 2048/14 =146.3 записи. Отбрасывая дробную часть, получим 146 записей.
1011100010111000