Разделить на определенные числа

[MixanMM]

Всем доброго времени, подскажите пожалуйста, как можно реализовать такое: нужно число, например 10 разделить на определенные числа, на 0.5, 1 , 1.5, т.е делим 10=1.5*6+1, 11 = 1.5*7+0.5, как то так, может через массив?Но я сними не оч. силен

[p51x]

А куда вы тут массив хотите впихнуть?

[MixanMM]

Сообщение от p51x

А куда вы тут массив хотите впихнуть?

А на массив нельзя поделить? т.е внести в массив определенные данные [0.5, 1, 1.5], ии на него делить, невозможно так?

[p51x]

Можно и так, а можно просто в цикле делить на 0.5*i

[MixanMM]

Сообщение от p51x

Можно и так, а можно просто в цикле делить на 0.5*i

Не подскажете как можно через массив реализовать?

[p51x]

a: array [1..3] of real := (0.5,1.0,1.5);
...
for i := 1 to 3 do
  write(10/a[i],' ');