Составить программу подсчета силы тяжести если m меняется от a до b с шагом h паскаль

var

  h, a, b, m: integer;

 

begin

  readln(a, b); //вводим a, b с клавиатуры

  readln(h); //вводим h с клавиатуры

  m : = a; //приравниваем значение массы к а

  while m < = b do //пока масса меньше b цикл будет выполнять повторения

  begin

    write(m * 10, ' '); //выводим значение силы тяжести

    m += h; //увеличиваем массу на шаг

  end;

end.

1) 19(10) -  10011(2) 2) 86(10) -  1010110(2)3) 177(10) -  10110001(2)4) 345(10) -  101011001(2) для числа [19]ход решения: делим число на 2 и выписываем остатки 19 = 9·2 + 1 9 = 4·2 + 1 4 = 2·2 + 0 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 10011 для числа [86] ход решения: делим число на 2 и выписываем остатки 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 1010110 для числа [177] ход решения: делим число на 2 и выписываем остатки 177 = 88·2 + 1 88 = 44·2 + 0 44 = 22·2 + 0 22 = 11·2 + 0 11 = 5·2 + 1 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 10110001 для числа [345] ход решения: делим число на 2 и выписываем остатки 345 = 172·2 + 1 172 = 86·2 + 0 86 = 43·2 + 0 43 = 21·2 + 1 21 = 10·2 + 1 10 = 5·2 + 0 5 = 2·2 + 1 2 = 1·2 + 0 последний множитель перед 2 равный 1 записываем первым. затем записываем найденные остатки в обратном порядке. получаем: 101011001