begin
var a := ArrRandom(ReadInteger('n ='), -15, 15);
a.Println;
a.ForEach(x -> begin if x < 0 then Print(x) end)
end.
143
48 div 5 = 9 48 mod 5 = 3
9 div 5 = 1 9 mod 5 = 4
1 div 5 = 0 1 mod 5 = 1
Записываем результат mod в обратном порядке = 143
1)BC(16) = 188(10)
2)
3)
21,1(10)
25,1(8)
15,1(16)
4)
Я РЕШИЛ УРАВНЕНИЕ ПОД НОМЕРОВ 1, ЕСЛИ НУЖНО РЕШИТЬ ДРУГИЕ ПИШИ В ЛИЧКУ
Задача сделана на языке паскаль, при помощи
PaskalPlus<span>
Оформление сделана как для студенческой задачи
<span>Если есть вопросы пиши в личку</span></span>