(см. объяснение)
Объяснение:
Предисловие:
Вообще говоря, верно равенство:
Поэтому предложенное вами задание неуместно, ибо считается в уме.
Непонятно так же, какое решение от Вас ждет преподаватель.
Я предполагаю, что учитель требует лобовое неоптимальное медленное решение, поскольку в противном случае задача теряет смысл. В самом деле, что писать блок схему вот этого:
##
(100*101*201/6).Print;
Итак, не будем долго тянуть и, поняв тупость задания, начнем что-то делать. Положим у нас будет цикл (лучше for). И мы будем к некоторой переменной sum добавлять счетчик в квадрате.
То есть код такой (новый и ныне единственно предпочтительный синтаксис, присутствующий в PascalABC.NET):
##
var sum:= 0;
for var i:= 1 to 100 do
sum+= i*i;
sum.Print;
Но от нас требуют блок схему (хотя тоже непонятно зачем).
Но требую и требуют:
(см. прикрепленный файл)
Задание выполнено!
Для начала найдем, сколько информации несет каждый символ: мощность алфавита 256, находим количество информации по формуле N = 2i, где N - мощность алфавита, i - количество информации в битах, которое несет каждая буква.
256 = 28, значит каждый символ несет 8 бит информации, или 1 байт.
2. В одной строчке 70 символов, значит, 70 * 1 = 70 байт несет каждая строчка.
3. На одной странице 30 строк, поэтому 30 * 70 = 2100 байт несет каждая страница.
5. Пять страниц текста содержит 2100 * 5 = 10500 байт информации.
ответ: 10500 байт.