1)как представлено число 6910 в двоичной системе счисления? 1) 10010112 2) 10001012 3) 1010, 0112 4) 1000, 1012 2)сколько единиц в двоичной записи числа 189? 1) 5 2) 8 3) 6 4) 4 3)перевести из десятичной системы в восьмеричную, шестнадцатеричную сс. 693 в 10 =х в 8 69310 =х в 16 69310 =х в 2

6910=4096+2048+512+128+64+32+16+8+4+2=
       =2^12+2^11 +2^9 +2^7+2^6+2^5+2^4+2^3+2^2+2^1=
      =1 101 011 111 110 (2cc)
189 =128+32+16+8+4+1=2^7+2^5+2^4+2^3+2^2+2^0
 6 (шесть единиц)  ответ 3)6
693 | 8
688 |
 |   86 |8
    5     80 | ---                        693 (10cc) =1265 (8cc) =1 010 110 101 (2cc)=
          | 10 |8                                    =10 1011 0101=2B5 (16cc)
            6  |   8 |---
                  | 1
                    2

PascalABC.NET 3.5.1 + .NET Framework 4.7.1

#1

begin

 var n := ReadInteger();

 var a := Range(1, n);

 //Sum

 a.Sum.Println;

 //произведение

 a.Aggregate(BigInteger.One, (p, q) -> p * q).Println;

 //Кол-во кратных 2 и 3

 a.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Count.Println;

 //Среднее ряда

 a.Average.Round.Println

end.

#2

begin

 var A := ReadArrInteger(10);

 A.Println;

 //максимум

 A.Max.Println;

 //Сумма кратных 2 и 3

 A.Where(p -> (p mod 2 = 0) and (p mod 3 = 0)).Sum.Println

end.

Объяснение кода №1;

var s, n: integer;  //Объявление переменных

begin  //Начало программы

s:=100  //Значение переменной S равняется 100

n:=300  //Значение переменной n равняется 300

while s+n <= 600 do  

//Цикл while выполняется до тех пор, пока истинно условие s + n <= 600, т. е. сумма s и n определяет, сколько раз выполнится цикл.

begin

//Следовательно, два действия s := s + 40 и n := n − 20 можно объединить, так как цикл зависит от двух переменных. Таким образом, на каждом повторе (умными словами итерации) добавляется 20.

s:= s+40

n:=n-20

end

//Решим уравнение: 400 + x > 600.

Цикл остановится, когда x будет больше 200. Поскольку каждый раз добавляется по 20, будет 11 повтор.

По итогу, получится на 11-ой итерации: 100 + 40 * 11 = 540.

Объяснение кода №2;

//Объяснения немного короче напишу

var s, n: integer;

begin

s:=500

n:=200

//Цикл while выполняется до тех пор, пока истинно условие s div n >= 2, т. е. целочисленное деление s на n определяет, сколько раз выполнится цикл.

while s div n >= 2 do begin

s:= s+5

n:= n+5

end

//Следовательно, каждый раз к обеим переменным прибавляется по 5. Целочисленное деление s на n будет меньше 2 тогда, когда s примет значение 605, а n — значение 305.

Совет: Если ты вдруг 10 или 11 класс, и не понимаешь данные штуки, можешь не вникать уже в них, поздно. Изучай си, си++ в универе пригодится :)