Program psck;
vara,b,c: integer;y: real;
begin
a:=7;b:=16;c:=13;y:=(a*a+b*b)/7+c/(a-b);writeln('y = ',y); end.
// PascalABC.Net 3.0, сборка 1066
begin
var M:=SeqRandom(15,-25,25).ToArray;
Writeln('Исходный массив М: ',M);
Writeln('Разность максимального и первого элементов: ',M.Max-M[0])
end.
<em><u>Тестовое решение:</u></em>
Исходный массив М: [1,-15,24,-14,-3,16,9,-16,5,9,11,19,12,18,-21]
Разность максимального и первого элементов: 23
Делите последовательно на 2 и остаток от деления записываете справа налево - получаете двоичное представление числа
40(10) 40/2=20 - остаток = 0
20/2=10 - остаток = 0
10/2=5 - остаток =0
5/2 =2 , остаток = 1
2/2=1 остаток =0
1
если после последнего деления результат меньше 2
то частное записываем в представление
получили биты: 101000 - это и есть двоичное представление числа 40(10)
для числа 8
8/2=4 - остаток 0
4/2 =2 - остаток 0
2/2=1
двоичное представление числа 8(10) 100(2)
так же вычисляете для 54(10) и 9(10)
9(10) = 8(10) + 1 = 100(2) + 1 = 101(2)
54/2=27 ->0
27/2=13 ->1
13/2=6 ->1
6/2=3 -> 0
3/2=1 -> 1
-> 1
двоичное представление числа 54(10)
110110(2) = 54(10)
110110 = 2(в пятой)+2(в четвертой) +2(во второй)+
2(в первой) степенях =32+16+4+2=48+6=54