Program ask_1;
const k = -20;
b = 20;
type MyArray = Array[1..16]of integer;
var A:MyArray;
i:integer; //
begin
Randomize;
for i:=1 to 16 do begin
A[i] := random(b-k+1);
if (A[i] = 0) then write(i);
end;
end.
Поскольку в задании не сказано вывести данный массив, то в этой программе выводятся элементы с 0 значением.
Перевод из двоичной системы в восьмеричную очень прост. Влево и вправо от запятой (десятичной точки) двоичное число разбивается на группы, содержащие три разряда (триАды). А затем каждая триада заменяется соответствующей восьмеричной цифрой.
<span>1 100 101(2) = 145(8)</span>
1. if (a < (b+c)) or (b < (a+c)) or (c < (a+b)) then может.
2. d := b*b - 4*a*c;
if (d < 0) then нет решение
x1 := (-b + sqrt(d)) / 2 / a;
x2 := (-b - sqrt(d)) / 2 / a;
1110101, извини, решение не дам, я очень плохо эту тему помню, когда ещё в школе учился учили. Это ответ с онлайн калькулятора
5 --- 6; 12 ----23; 123 ----234; 77-----88; 555-----666
Правило: цифры данного числа увеличиваем на 1