Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
<span>End.</span>
Это объект, 7 класс 2 урок
*************
*Решение*
*************
16^x = 32 * 1024 * 1024 * 8
здесь всё правильно (в килобайте 1024 байта, в мегабайте 1024 килобайта, в байте 8 бит)
представляем все числа в виде степеней числа 2
(2^4)^x = 2^5 * 2^10 * 2^10 * 2^3
Выполняем преобразования (действия со степенями)
2^(4*x) = 2^(5 + 10 + 10 + 3)
2^(4*x) = 2^28
Логарифмируем обе части выражения по основанию 2 и выносим показатели степеней за знак логарифма
4*х = 28
х = 7
<span>Таким образом задача решается устно.
</span>
Программа... Вообщем непонятно что делает. Убирает последние три цифры у числа, затем Эти самые три цифры умножает на переменную "b", и так повторяется, пока это число не станет меньше 1000.
Вообщем... Ответ: 1011. Не парься
Используй муактивити на касания мыши в скрипте.