Я тебе даю формулы ты уже выбирай сам какую
Var day:integer; begin writeln('Введите номер дня недели(1-7):'); readln(day); case day of 1:writeln('Понедельник'); 2:writeln('Вторник'); 3:writeln('Среда'); 4:writeln('Четверг'); 5:writeln('Пятница'); 6:writeln('Суббота'); 7:writeln('Воскресенье'); else writeln('Неверно введён день недели!'); end;end.
Program v1;
Var n,k, sum: integer;
Begin
Write ('Введите знаменатель: ');
Readln(n);
Write ('Введите числитель: ');
Readln (k);
Sum := (n div k);
Write(Sum);
End.
Пусть каждый символ кодируется 16 битами, что составляет 16/8=2 байта.
Тогда каждая из первой половины страниц потребует для кодирования 2×64×48 = 2¹×2⁶×(3×2⁴) = 3×2×2¹⁰ байт = 6 Кбайт, а все эти страницы займут 6×6=36 Кбайт
Каждая из второй половины страниц потребует для кодирования 2×64×24 = 2¹×2⁶×(3×2³) = 3×2¹⁰ байт = 3 Кбайт, а все эти страницы займут 6×3=18 Кбайт.
Информационный объем реферата составит 36+18 = 54 Кбайта