33 ! статья, набранная на компьютере, содержит 48 страниц, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8, в которой каждый символ кодируется 8 битами.

1 символ = 8 бит:

40 символов  = 40(симв) * 8(бит):

40 строк по 40 символов = 40(симв) * 8(бит) * 40(строк):

48 страниц по 40 строк в 40 символов = 40(симв) * 8(бит) * 40(строк) * 48(стр)

40*8*40*48 = 614 400 бит.

614 400 бит / 8 = 76 800 байт

76 800 байт/ 1024 = 75 Кбайт

вроде так ибо я не помню

75 КБайт (надо 48 * 40 * 40 * 8( далее переводим в байты значит это все делим на 8 и далее переводим в КБайт надо поделить это все на 1024))

amount = 0

while True:

   cost = int(input("Стоимость товара (0 - покупок больше нет): "))

   if cost == 0:

       break

   amount += cost

print("Стоимость всех покупок:", amount)

Объяснение:

amount = 0 // Сумма = 0

while True: // Пока истинно

   cost = int(input("Стоимость товара (0 - покупок больше нет): ")) // Вводим стоимость с клавиатуры

   if cost == 0: // Если стоимость = 0

       break // Выходим из цикла

   amount += cost // Добавляем к сумме стоимость

print("Стоимость всех покупок:", amount) // Выводим ответ

Program SandP; //Название программы var //Описание переменных x,y: real; // Стороны прямоугольника S: real; // Площадь прямоугольника P: real; // Периметр прямоугольника procedure RectSP(a,b: real; var S,P:real); //Процедура begin S := a * b; //Нахождение площади P := a + b; //Нахождение суммы end; begin //Начало основной части программы writeln('Введите стороны прямоугольника: '); //Диалог с пользователем readln(x,y); //Считывание сторон RectSP(x,y,S,P); //Вызов процедуры writeln('Площадь равна ',S); //Вывод площади writeln('Периметр равен ',P); //Вывод периметра end. //Конец программы