Var N,K:integer;
begin
write('Введите значение количество школьников N=');
readln(N);
write('Введите значение количество персиков K=');
readln(K);
writeln('Каждому школьнику достанется по ',K div N,' шт');
writeln('в корзине останется ',K mod N,' шт');
<span>end.</span>
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец
16 =
i = 4 (кол-во бит на одну букву)
4 * 5 = 20 бит (объем информации одного слова)
20 * 8000 = 160000 бит / 8 = 20000 байт
Ответ :
20000 байт
Насколько я понял
С:/Времена года/Зима/декабрь.txt./