Считаем, сколько пройдёт минут после 2N+1 урока:
(2N + 1)*45 - число минут собственно на учёбу
N * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
Считаем, сколько пройдёт минут после 2N уроков:
2N*45 - число минут собственно на учёбу
(N - 1) * 15 - число минут на длинные перерывы
N * 5 - число минут на короткие перерывы
В общем случае, после M уроков (сравниваем ответы):
M*45 - число минут собственно на учёбу
(M div 2 - (M+1) mod 2) * 15 - число минут на длинные перерывы
(M div 2) * 5 - число минут на короткие перерывы
Т.о., время T (в минутах) можно найти по формуле:
T = M*45 + (M div 2 - (M+1) mod 2) * 15 + (M div 2) * 5
Если нужно привести к формату H:M, то
H = 9 + (T div 60)
M = T mod 60
1) 8=2³, поэтому для хранения палитры требуется 3 бита. И, что то же самое, глубина цвета равна 3 битам.
2) Для хранения информации о цвете одной точки требуется 2 бита, поскольку 4=2². А для 100×100 точек потребуется 100×100×2=20000 бит = 20000/8 = 2500 байт. Это и есть информационный объем.
using System;
namespace Interesting {
class Program {
static void Main() {
float Max = 0;
float Sum = 0;
float N = 0;
string s;
float num;
Console.WriteLine("Введите последовательность чисел. Для окончания введите пустую строку");
try {
while (true) {
Console.WriteLine("Введите число");
s = Console.ReadLine();
num = Convert.ToSingle(s);
Max = (num > Max) ? num : Max;
Sum += num;
N++;
}
}
catch (Exception e) {
Console.WriteLine("Ввод закончен");
}
Console.WriteLine("Максимальное = {0}, Среднее = {1}", Max, Sum / N);
}
}
}
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMin;
Writeln('Min a[', i + 1, ']=', a[i]);
i := a.IndexMax;
Writeln('Max a[', i + 1, ']=', a[i])
end.
<h2>-6 -10 9 0 -9 2 10 -7 1 3</h2><h2>Min a[2]=-10</h2><h2>Max a[7]=10</h2>