1)
Function check7(a As Range) As Integer
Dim r As Range
Dim i As Integer
For Each r In a
i = i + 1 - Sgn((Abs(r) + 3) Mod 10)
Next
check7 = i
End Function
Excel VBA
2)
А что здесь программировать-то?
Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими можно разместить эти 7 мячиков в этих двух ящиках?
Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.
Получаем варианты:
7|0
6|1
5|2
4|3
3|4
2|5
1|6
Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).
В общем-то и без вычислений всем очевидно, что разместить 7 мячиков в двух ящиков ровно 7.
Что должна вычислять программа?
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите число a:");
int a = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите число b:");
int b = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("Введите число c:");
int c = Convert.ToInt32(Console.ReadLine());//Вводим 3 числа
int sredAref = a + b + c / 3;//Считаем
Console.WriteLine("Среднее Арифметическое : " + sredAref);// Выводим
Console.ReadKey();
}
}
Объяснение:
V = 200 * 32 * 64 = 409 600 символов в книге = 409 600 байт
U = 56 КБ/сек = 56 * 1024 байт/сек = 57 344 байт/сек
T = V/U
T = 409 600 / 57344 ~ 7.14 сек
2)
T = 5 сек
U = 1 MB/сек = 1024 * 1024 байт/сек = 1 048 576 байт/сек
V = U * T
V = 5 * 1 048 576 = 5 242 880 байт(символов)
Кол-во страниц: 5 242 880 / 32 / 64 = 2560 страниц