Var
A, B, X : Integer;
begin
Writeln('Введите кол-во газет:'); // Просим пользователя ввести кол-во газет
Readln(B); // Считываем то, что он ввел
Writeln('Введите цену первых 75 газет:');<span>
</span> <span>Readln(A);
</span>
Writeln('Введите цену остальных газет:');<span>
</span> <span>Readln(X);
</span> if B <= 75 then // Условие: если газет 75 или меньше, то...
Writeln('Мальчик заработает ', B * A, 'рублей.')
else // Иначе...
Writeln('Мальчик заработает ', 75 * A + (B - 75) * X, 'рублей.');
end.
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
K = 140*25 = 3500 символов;
Если принять русский алфавит за 32 символа, то N = 2^i; 32 = 2^5 ; i = 5
I = K*i = 3500*5 = 17500бит = 2.1875байт
<span>1 дискета = 1457664 байт;</span>
<span>1/3 = 485888байт.</span>
<span>140 символов в минуту = 140*5 = 700бит. = 87.5байт</span>
<span>485888/87.5 = 5553минут</span>
<span>З.Ы Не уверена насчет мощности алфавита, если он читает текстовый файл, то бери 1 символ = 1 байт.</span>