Сделано с рандомными числами.
program massiv; var mas:array [1..10] of real; a:real; i:byte; begin a:=0; for i:=1 to 10 do begin mas[i]:=random(10)+1; if a<mas[i] then a:=mas[i]; end; writeln(a, ' - наибольшее из чисел массива ' ); end.
Я сделаю только 1 номер, остальные делаются по аналогии
давай просто возьмем ручку бумажку и нарисуем табличку)
f(1) = 1; g(1) = 1
f(2) = f(1) - g(1) = 1 - 1 = 0; g(2) = f(1) +2 * g(1) = 1 + 2 * 1 = 3
f(3) = f(2) - g (2) = 0 - 3 = -3; g(3) = f(2) + 2 * g(2) = 0 + 2 * 3 = 6
f(4) = f (3) - g (3) = -3 - 6 = -9; g(4) = f(3) + 2 * g(3) = -3 + 2 * 6 = 9
<u>f(5) </u><u>= f (4) - g (4) = -9 - 9 = </u><u>-18</u><u>; </u><u>g(5) </u><u>= f(4) + 2 * g(4) = -9 + 2 * 9 = </u><u>9</u>
таким образом мы и нашли f(5) и g(5), => f(5) / g (5) = -18 / 9 = -2
(P.s. Если ошибся, напиши, я же не робот )
Сдвиг вправо. Например 10 : 2
В двоичной системе 1010. Сдвигаем вправо, получаем 101. Переводим 101 в десятичную систему и видим, что это 5
1) b=36\12=3
b= 3+ 36\4=12
a:= 36\12*3=9
2) a=4*2+4=12
a= 12\3+4=8
b:= 8\4*2=4
3) b= 6\3+1=3
b= 6\3*2=4
a:=4*2-6=2
4) b=9+3*2=15
a:=15\5*3=9
I=1, a=6*1-2=4
i=2, a=4*2-2=6
a=6+1=7