var
a,b:integer;
begin
writeln('Введите значение a: ');
readln(a);
writeln('Введите значение b: ');
readln(b);
writeln('a + b = ',a+b);
writeln('a - b = ',a-b);
writeln('a * b = ',a*b);
writeln('a / b = ',a/b);
end.
24000 долларов от 1 ой радиоприемников
16000 долл от 2 ой радиоприемников
Каждому разряду восьмеричной системы соответствуют ровно 3 разряда двоичной, например,
![76_8=111~110_2](https://tex.z-dn.net/?f=76_8%3D111~110_2)
. Следовательно, четырехзначное восьмеричное число в двоичной системе будет лежать между числами
1 000 000 000 и 111 111 111 111 (включая). Теперь рассмотрим условие минимальности. Ясно, что первая группа двоичных разрядов должна быть одной единицей, т.к. в противном случае число не будет наименьшим. После этого должны следовать нули, т.к. из оставшихся кандидатов все числа, в которых на втором месте 0, меньше, чем те, у которых так 1. Аналогично, третье и четвертое место занимают 0. Значит, искомое число в двоичной системе выглядит так: 1 000 111 111. Соответственно, в восьмеричной системе это 1077, а в десятичной - 575.
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
11101(2) = 29(10)
1D(16) = 29(10)
Вывод: числа равны