// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), 1, 100); a.Println; // общее
Println('Максимальный четный ', a.Where(t -> t.IsEven).Max); // задача 1
Print('Второй минимальнывй нечетный'); // задача 2
a.Where(t -> t.IsOdd).OrderDescending.Skip(1).Take(1).Println // задача 2
end.
Пример
n= 15
67 8 60 1 96 40 73 25 39 93 64 89 40 69 9
Максимальный четный 96
Второй минимальнывй нечетный 89
#include < iostream > /* Подключаем библиотеку, чтоб работали функции cout, cin */
#include < cmath > /*Подкючаем библиотеку, чтоб работали функции cos, pi */
#define PI 3.14159265 /*Задаем сколько у нас будет значит число ПИ */
using namespace std;
main (){
float a, result; /*Вводим 2 переменные - действительные числа: одно - число градусов угла, второе - полученный результат*/
cout << "Vvedite znachenie ugla" << endl;
cin >> a; /* Вводим значение угла с клавиатуры*/
result = cos (a*PI/180); /*высчитываем значение косинуса, переводя значениезаданного угла в радианы */
cout << "Kosinus "<< a << " raven " << result; /*Выводим полученное на экран */
return 0; /*Возвращает нулевое значение */
}
25 Кбайт= 25*1024*8 бит = 204800 бит.
Значит на 1 символ приходится: 204800 / 20480 бит = 10 бит.
Отсюда ответ : 10 бит