QBasic. Найти значение данной функции на отрезке [a, b] с шагом изменения аргумента dx. (На фото задание 2)

Const
  percent = 13.0;
  limit = 250.0;
  plan = 180.0;
  perv_zapas = 1000.0;

var
  year: integer;
  zapas, ulov: real;

begin
  Writeln('Год Запас рыбы,т. Улов,т');
  zapas := perv_zapas;
  for year := 1 to 20 do
  begin
    zapas := zapas * (1 + percent / 100);
    if zapas - plan < 250 then ulov := zapas - 250
    else ulov := plan;
    zapas := zapas - ulov;
    if ulov >= plan then Writeln(year:2, zapas:10:1, ulov:12:1)
    else Writeln(year:2, zapas:10:1, ulov:12:1, ' - меньше плана')
  end
end.

Результат выполнения программы:
Год Запас рыбы,т. Улов,т
 1     950.0       180.0
 2     893.5       180.0
 3     829.7       180.0
 4     757.5       180.0
 5     676.0       180.0
 6     583.9       180.0
 7     479.8       180.0
 8     362.1       180.0
 9     250.0       159.2 - меньше плана
10     250.0        32.5 - меньше плана
11     250.0        32.5 - меньше плана
12     250.0        32.5 - меньше плана
13     250.0        32.5 - меньше плана
14     250.0        32.5 - меньше плана
15     250.0        32.5 - меньше плана
16     250.0        32.5 - меньше плана
17     250.0        32.5 - меньше плана
18     250.0        32.5 - меньше плана
19     250.0        32.5 - меньше плана
20     250.0        32.5 - меньше плана

ответ:Шестнадцатеричная система - 24.

Двоичная система - 100100.

Посмотрите так же как пишутся десятичные цифры 7, 9, 49, 290, 449, 106, 682, 890, 319, 4081, 8002, 58854, 41006, 146286, 431900 в различных системах счисления.

Число 36 в других системах счисления:

2 - 100100, 3 - 1100, 4 - 210, 5 - 121, 6 - 100, 7 - 51, 8 - 44, 9 - 40, 10 - 36, 11 - 33, 12 - 30, 13 - 2a, 14 - 28, 15 - 26, 16 - 24, 17 - 22, 18 - 20, 19 - 1h, 20 - 1g, 21 - 1f, 22 - 1e, 23 - 1d, 24 - 1c, 25 - 1b, 26 - 1a, 27 - 19, 28 - 18, 29 - 17, 30 - 16, 31 - 15, 32 - 14.

Объяснение:

Вот правильно