задача на ввод вывод информации

[Nik!ta]

Здравствуйте. Помогите разобраться. Задача в целом очень простая... но мне нельзя пользоваться условным оператором if и циклами.

За день машина проезжает n километров. Сколько дней нужно, чтобы проехать маршрут длиной m километров?

пример 700 км в день, надо 800 = 2 дня или 700, надо 700 = 1 день.

в представленном ниже коде при делении нацело ответ получается верный, при делении с остатком ответ ошибочный на 1 меньше, если же прибавить к окончательному числу 1, то соответственно при делении нацело будет ошибка

var a,b:integer; s:real;
begin
a:=strtoint(edt1.text);
b:=strtoint(edt2.text);
begin
s:=b div a ;
end;
Edt3.Text:=floattostr(s);
end;

[evg_m]

здесь есть подсказка (один из возможных путей решения). там тоже было условие не пользоваться if .

[Serge_Bliznykov]

а так можно?

var a,b,s:integer; 
begin
  a:=strtoint(edt1.text);
  b:=strtoint(edt2.text);
  s := b div a + ord((b mod a) > 0) ;
  Edt3.Text:= IntToStr(s);
end;

[Nik!ta]

Спасибо)))