//Pascal ABC.NET 3.1 сборка 1256
Var
a,b:integer;
begin
read(a,b);
writeln(((a div b)*a+(b div a)*b)/((a div b)+(b div a)));
end.
Пример ввода:
8
5
Пример вывода:
8
Объем шара
, объем куба
. Необходимо сравнить объёмы двух сосудов.
Код (PascalABC.NET 3.2):
begin
var A := ReadReal('Введите сторону куба:');
var r := ReadReal('Введите радиус шара:');
A := A * A * A;
r := 4 * pi / 3 * r * r * r;
if A > r then print('В шарообразном сосуде на', A - r, 'воды больше')
else if r > A then print('В прямоугольном сосуде на', r - A, 'воды больше')
else print('В сосудах одинаковое количество воды');
end.
Всего символов = 256 * 20 * 40 = 204800
Для одного символа используется 8 бит = 1 байт.
Объем хрестоматии = 204800 байт = 200 кбайт.
1. Окно обработки слайдов
2. Файл
3. С текущего или с начала
4. Из вкладок Главная Вставка Резензирование и т.д.
5. Вставка таблиц, картинок, текста, звука видео и т.д.
6. Готовый задний фон
7. Просмотр по времени
8. Для разных путей, или на всякий случай. Либо различные варианты одного слайда
9. Функции подсказок или подробного рассказа
10. Удаление и вырезание
11. См.5
12. Множество форматов, проверка на вирусы и защита паролем
13. Rar, zip, 7z, krz и т.д.
14. В текущую папку, в пусть. Определённого файла или всех.
15. Картинки или маленькие файлы
НЕ УВЕРЕН ЧТО ВСЁ ПРАВИЛЬНО !!
18(10) = 10010(2)
Так как числа неотрицательные, то все биты можно использовать для представления величины числа (знак не нужен).
Наименьшее количество бит = 5