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 записей.
var
i, n, s: integer;
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.
Трехзначное десятичное число - это число от 100 до 999. Таких чисел может быть 900. Поскольку 2⁹<900<2¹⁰, то для кодирования нам потребуется 10 бит. По условию числа кодируются неким целым число байт. В байте 8 бит, поэтому для представления 10 бит потребуется 2 байта.
Итого, длина записи составит 12+2=14 байт.
2. Определим возможное количество записей.
2 Кбайта = 2×1024 байта = 2048 байт.
Количество записей равно 2048/14 =146.3 записи.
Отбрасывая дробную часть, получим 146 записей.