<h2>Задание </h2>
Сложить E43C и D15A в шестнадцатеричной системе счисления
<h2>Решение</h2>
Записываем два числа в столбик и складываем по разрядам. Первым действием складываем C и A. Вспомним, какие числа содержит в себе шестнадцатеричная система счисления: от 0 до 9, а также буквы A, B, C, D, E и F, соответственно равные 10, 11, 12, 13, 14 и 15. Итак, складываем C и A: 12 + 10 = 22. Так как мы работаем в шестнадцатеричной системе счисления, то происходит переполнение разряда (аналогия - в нашей, десятичной системе счисления такое переполнение происходит, когда мы складываем, например, 5 и 6: 5 + 6 = 11 - происходит переполнение нашей системы и мы включаем десятки). Нужно разложить 22 на сумму числа и 16. 16 + 6 = 22. Записываем под этими разрядами 6 и ставим точечку над следующим разрядом. Переходим к следующему: 3 + 5 = 8. Переполнения нет. А у нас ещё точечка: 8 + 1 = 9. Записываем под этими разрядами 9. Переходим к следующему: 4 + 1 = 5. Записываем. Следующий (последний): E + D = 14 + 13 = 27 = 16 + 11. 11 в шестнадцатеричной системе счисления - это B. Единичку записываем в следующий разряд (а поскольку его нет - в самое начало получившегося числа).
<h2>Ответ</h2>
1B596
Для роботы виндус и некоторых других програм
Program n1;
var
i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
<span>end.
</span>program n1;
var
i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.<span>
</span>
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.